напишите программу которая в последовательности натуральных чисел определяет сумму всех чисел кратных 6 и оканчивающихся на 4 .Программа получает на ввод натуральные числа , количество введенных чисел неизвестно. последовательность чисел заканчивается 0
Ответы
Ответ дал:
2
var
num, sum: integer;
begin
repeat
readln(num);
if (num mod 4 = 0) and (num mod 10 = 6) then sum := sum + num;
until num = 0;
writeln(sum);
end.
num, sum: integer;
begin
repeat
readln(num);
if (num mod 4 = 0) and (num mod 10 = 6) then sum := sum + num;
until num = 0;
writeln(sum);
end.
Похожие вопросы
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад