4. Сформулируйте условие задачи (что делает программа?)
var a, answer: integer;
begin
answer:=0;
readln(a);
while a<>0 do begin
if (a mod 4 = 0) and (a <1000) then
answer := answer + 1;
readln(a); end;
writeln(answer)
end.

anya190804    2   21.05.2020 19:55    61