На паскале написать программу которая в последовательность чисел (натуральных), определяет сумму всех чисел кратных 4 и оканчивающихся на 6. Программа получает на вход нат числа, признаком окончания ввода явл число 0.

Могу решить и сам, только нельзя на компе проверить. Так что надеюсь на вас.

Question

Информатика

Артемон

18 ноября, 19:27

На паскале написать программу которая в последовательность чисел (натуральных), определяет сумму всех чисел кратных 4 и оканчивающихся на 6. Программа получает на вход нат числа, признаком окончания ввода явл число 0.

Могу решить и сам, только нельзя на компе проверить. Так что надеюсь на вас.

+2

Ответы (1)

Знаете ответ на вопрос?

Глеб · Answer 1

Var

a: integer;

s: longint;

begin

s : = 0;

a : = - 32768;

while a 0 do

begin

readln (a) ;

if a 0 then

if a mod 4 = 0 then

if a mod 10 = 6 then s : = s + a

end;

writeln ('Сумма равна ', s)

end.