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

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

Question

Информатика

Донара

18 марта, 05:20

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

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

+3

Ответы (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.