Odpowiedzi

Najlepsza Odpowiedź!
2010-03-20T12:52:21+01:00
Program kat;
uses CRT;
var
tekst:string;
begin
Clrscr;
Writeln('Wpisz dowolny tekst:');
readln(tekst);
Writeln;
Writeln('Znakow ze wprowadzonym tekscie: ',length(tekst));
readln;
end.
1 5 1