Нарисуйте блок схему к программе program b_3;
var a, min,S,K:integer;
begin
S:=0;
K:=0;
readln(a);
while a <> 0 do begin
if (a mod 10 <>3) and (a mod 10 <> 5) then
S:=S+a;
K:=K+1;
readln(a)
end;
writeln(S/(K-1))
end.

anita4566    2   13.02.2021 13:44    0