Лучший ответ
Ответы
-
1 0
blblblbl 8 (115613)815116 13 лет
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. -
-
-
Вопросов: 1278001 Ответов: 8799997, Участников: 369909 |
blblblbl 8 (115613)815116 13 лет
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.