Составить программу. Паскаль. Найти сумму чисел, делящихся без остатка на 4, меньших 100 и заканчивающихся на 2 или 8.

Question

Информатика

Стина

17 июня, 07:12

Составить программу. Паскаль. Найти сумму чисел, делящихся без остатка на 4, меньших 100 и заканчивающихся на 2 или 8.

+4

Ответы (1)

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

Петюха · Answer 1

var

i, s:integer;

begin

s:=0;

for i:=0 to 100 do begin

if (i mod 4 = 0) then for i:=0 to 100 do

if (i mod 10=2) or (i mod 10=8) then s:=s+i;;

write ('Summa = ', s) ;

end;

end.