Sailanim
4 год назад
Нужно составить программу для данной блок-схемы
ОТВЕТЫ
Detelina
Oct 24, 2020
Var A:integer;
Begin
A:=47;
A:=A+17;
A:=A+36;
While (99<A)and(A<1000) do
Begin
A:=A+284;
A:=A+116;
End;
A:=A+2587;
WriteLn(': ',A);
End.
Begin
A:=47;
A:=A+17;
A:=A+36;
While (99<A)and(A<1000) do
Begin
A:=A+284;
A:=A+116;
End;
A:=A+2587;
WriteLn(': ',A);
End.
984
Смежные вопросы:
