Дана строка. Вывести ее посимвольно, так чтобы между выводом символа i и i+1 должна быть некоторая временная задержка. Для этого используйте процедуру Delay(<время>).
Решение:
|
1
2 3 4 5 6 7 8 9 10 11 12 13 14 |
program characters_and_strings_2;
uses crt; var s: string; i: integer; begin clrscr; write(‘Строка > ‘); read(s); for i:=1 to length(s) do begin delay(80); write(s[i]); end; readkey; end. |