Question

Napisz program w PASCALU który wyświetla zdanie i z opóźnieniem wyświetla każdą kolejną literę tego zdania, następnie wyświetla je w taki sam sposób tylko, że wspak (od tyłu), a na koniec zlicza ilość poszczególnych liter,

Answer 1

Nieco bezsensowne zadanie, no ale... 

Pisane "z palca" pod FPC 2.6.0 (składnia for..in):

Uses CRT;
Const Sentence = 'Hello World!';
    DelayTime = 50;
Var C: Char;
    I: Byte;
Begin
  Writeln(Sentence);
  For C in Sentence Do
 Begin
   Write(C);
   Delay(DelayTime);
  End;
  Writeln;
  For I := Length(Sentence) Downto 1 Do
  Begin
   Write(Sentence[I]);
   Delay(DelayTime);
  End;
  Writeln(Length(Sentence));
End.

Answer 2

program zaq;
uses crt;
var
zdanie: string;
i, dl: integer;

begin
clrscr;
Writeln('Wpisz zdanie:');
readln(zdanie);
dl := length(zdanie);
clrscr;
Writeln('Zdanie w calosci:');
Writeln(zdanie);
Writeln('');
Writeln('Zdanie z opoznieniem:');
Writeln;
for i := 1 to length(zdanie) do
begin
Write(zdanie[i]);
delay(200);
end;
Writeln('');
Writeln('Zdanie z opoznieniem od tylu:');
Writeln;
for i := length(zdanie) downto 1 do
begin
Write(zdanie[i]);
delay(200);
end;
Writeln('');
Writeln('Ilość liter w zdaniu: ', length(zdanie));

readln;
end.