Помогите пожалуйста, срочно надо, два задания.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
