Написать схему по программе
Var x,s: integer;
Begin
X:=1;
While x<=22 do begin
If (x mod 2)=0 then S:= S+1;
X:=x+3;
End;
Write(S);
End.

lolka143    3   13.04.2020 09:07    0