Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / RUN_STR
.PAS program try_2;
uses crt;
var i:integer;
s:string;
begin
clrscr;
writeln ('‚ўҐ¤ЁвҐ Є Єго - ЁЎг¤м бва®Єг');
readln (s);
clrscr;
for i:=1 to length(s) do begin
write (s[i]);
delay (100);
end;
readln;
end.
uses crt;
var i:integer;
s:string;
begin
clrscr;
writeln ('‚ўҐ¤ЁвҐ Є Єго - ЁЎг¤м бва®Єг');
readln (s);
clrscr;
for i:=1 to length(s) do begin
write (s[i]);
delay (100);
end;
readln;
end.
Соседние файлы в папке Alex