Информатика, опубликовано 2018-08-22 23:33:08 by Гость
напишите программу которая в последовательности натуральных чисел определяет сумму всех чисел кратных 6 и оканчивающихся на 4 .Программа получает на ввод натуральные числа , количество введенных чисел неизвестно. последовательность чисел заканчивается 0
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на