Лучший ответ
Ответы
-
1 0
blblblbl 8 (115616)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. -
-
-
Вопросов: 1278240 Ответов: 8800900, Участников: 369941 |
blblblbl 8 (115616)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.