Ответы
Ответ дал:
0
Var S,K,A:integer;
Begin
S:=0;
K:=0;
A:=50;
Repeat
S:=S+A;
K:=K+5;
A:=A+1;
Until A>150;
WriteLn('SR = ',2*S);
WriteLn('K = ',K);
End.
Begin
S:=0;
K:=0;
A:=50;
Repeat
S:=S+A;
K:=K+5;
A:=A+1;
Until A>150;
WriteLn('SR = ',2*S);
WriteLn('K = ',K);
End.
Ответ дал:
0
Цикл с постусловием проходили?
Ответ дал:
0
Да
Похожие вопросы
2 года назад
2 года назад
9 лет назад
9 лет назад
9 лет назад