Помогите пожалуйста, срочно надо, два задания.

Question

Помогите пожалуйста, срочно надо, два задания.

---

Answer 1

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.

Comments

спасибо огромное!