Лучший ответ
Ответы
-
1 0
blblblbl 8 (115616)815120 14 лет
program dd;
uses crt, graph;
var x,y :integer;
LABEL A,B;
begin
writeln;
A: X:=X+1;
textcolor(X);
WRITE('TETXT % ',X);
IF X>33 THEN GOTO B;
GOTO A;
B:
READLN ;
END.
-

-

-

| Вопросов: 1279643 Ответов: 8808730, Участников: 370121 |

blblblbl 8 (115616)815120 14 лет
program dd;
uses crt, graph;
var x,y :integer;
LABEL A,B;
begin
writeln;
A: X:=X+1;
textcolor(X);
WRITE('TETXT % ',X);
IF X>33 THEN GOTO B;
GOTO A;
B:
READLN ;
END.

