Ответы
Ответ дал:
0
VAR T,N: INTEGER;
BEGIN
N:= 0;
T:=20;
REPEAT
T:=T+10;
N:=N + 1;
UNTIL T>100;
WRITELN (‘ЧЕРЕЗ ‘, N, ‘МИНУТ T=’, T);
READLN
END.
BEGIN
N:= 0;
T:=20;
REPEAT
T:=T+10;
N:=N + 1;
UNTIL T>100;
WRITELN (‘ЧЕРЕЗ ‘, N, ‘МИНУТ T=’, T);
READLN
END.
Ответ дал:
0
спасибо огромное!
Похожие вопросы
2 года назад
7 лет назад