Пожалуйста помогите! программа фриПаскаль! Составьте программу выводящую на экран мое имя "Алиса" Помогите,очень прошу!. Created by lissenok15. informatika-ru

Пожалуйста помогите! программа фриПаскаль! Составьте программу выводящую на экра...

merekekz 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.

lissenok15 это правильно?

merekekz да появляется Алиса турбо паскале

Andrey05 Вы проверяли работоспособность данной программы?

merekekz да я на нем писаль

Andrey05 Готово.................

lissenok15 моя программа называется Free Paskal IDE

lissenok15 Я запуталась :D

lissenok15 какое из ваших решений верно? :D

lissenok15 у нееили у тебя?

Andrey05 Минуту

lissenok15 у меня программа не воспринимает,пишет инфалидфайл

merekekz как выложить файл?

Andrey05 Исправил

Andrey05 Теперь работает

lissenok15 и где она исправлена?

Answers & Comments

pomogite pozhalujsta sdelat chetvertoe zadanie

proizvodnye pomogite pozhalujsta

рекомендуемые вопросы

Helpful Links

Helpful Social