Головна | Реєстрація | Вхід | RSSСереда, 03.03.2021, 12:47 PM

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

Меню сайту
Пошук
Наше опитування
Що є найбільш корисним на сайті?
Всього відповідей: 607
Що нового?
Форма входу
Міні-чат

Сума чисел, які кратні 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
Календар
«  Березень 2021  »
ПнВтСрЧтПтСбНд
1234567
891011121314
15161718192021
22232425262728
293031
Архів записів
Друзі сайту

Guide-for-students © 2021
Створити безкоштовний сайт на uCoz