Предмет: Информатика,
автор: lissenok15
Пожалуйста помогите!
программа фриПаскаль!
Составьте программу выводящую на экран мое имя "Алиса"
Помогите,очень прошу!
Ответы
Автор ответа:
0
program Colorscr;uses CRT;
label 1;
var c,x,y,i,l:integer;
s:string; ch:char;
begins:='Алиса';
l:= length(s);
1:for i:=1 to l do
beginx:=10+2*i;y:=10;
c:=Random(15)+1;
textcolor(c);
gotoxy(x,y);
write(copy(s,i,1));
end;ch:=readkey;
if ch<>'0' then goto 1;
end.
label 1;
var c,x,y,i,l:integer;
s:string; ch:char;
begins:='Алиса';
l:= length(s);
1:for i:=1 to l do
beginx:=10+2*i;y:=10;
c:=Random(15)+1;
textcolor(c);
gotoxy(x,y);
write(copy(s,i,1));
end;ch:=readkey;
if ch<>'0' then goto 1;
end.
Автор ответа:
0
Вы проверяли работоспособность данной программы?
Автор ответа:
0
Автор ответа:
0
как выложить файл?
Автор ответа:
0
Исправил
Автор ответа:
0
Теперь работает
Автор ответа:
0
и где она исправлена?
Интересные вопросы
Предмет: История,
автор: nivedimka1994
Предмет: Алгебра,
автор: xTiTANiAx
Предмет: География,
автор: linashi
Предмет: Математика,
автор: yuliya1881
Предмет: География,
автор: DashaKorneva