Составить программу.паскаль. найти сумму чисел, делящихся - вопрос №1427447 от annakraevaya061 10.04.2020 04:40

Question

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

annakraevaya061 · Answer

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....