Меню сайту

Пошук

Наше опитування
Чи допоміг вам сайт знайти те, що ви шукали? Так Ні Не все, що було потрібно Результати \| Архів опитувань Всього відповідей: 547

Що нового?

Форма входу

Міні-чат
Щоб додати необхідна авторизація

Сума чисел, які кратні 7

Програма, яка вираховує суму тих чисел, які кратні семи, при введенні трьох чисел (за потреби можна в коді програми замінити кратність на інше число, а не на сім):
program chisla_kratni7_1;
var a,b,c,a2,b2,c2,s: integer;
begin
writeln ('vvedit tri chisla');
readln (a,b,c);
s:=0;

a2:= a mod 10;
b2:= b mod 10;
c2:= c mod 10;
if (a mod 7 =0) and (a2=1) then
s:=s+a;
if (b mod 7 =0) and (b2=1) then
s:=s+b;
if (c mod 7 =0) and (c2=1) then
s:=s+c;
writeln (s);
readln
end.

Статистика
Онлайн всього: 1 Гостей: 1 Користувачів: 0

Календар

Архів записів

Друзі сайту

Створити безкоштовний сайт на uCoz

Довідник для учнів та студентів

Сума чисел, які кратні 7