Program Primer;
var a, s: integer;
begin
s:= 0;
readln(a);
while a<>0 do begin
if (a mod 4 = 0) and (a mod 10 = 4) then
s := s + a;
readln(a);
end;
writeln(s);
end.
Какое число получится, если ввести ряд чисел 80, 12, 164, 104, 11, 0?

DianaAudley    2   23.04.2020 09:15    0