Сделать блок схему
begin
read(a);
h:=0;
while (a<>0) do
begin
if(a<500)and(a mod 3=0)then h:=h+1;
read(a);
end;
writeln(h);
end.​

rmaro82    2   07.12.2020 13:36    1