np. s:String;
begin
Writeln ('Podaj ciąg');
readln (s);
- tu jest 6 slow, a 44 znaki
ale jak mam bardzo dlugi tekst to nie policze na oko ;p
Baaardzo prosze o syzbką odpowiedź

uses crt;
var plik: text;
var znaki: integer;
var linijka: string;
begin
clrscr;
assign(plik, 'plik.txt');
reset(plik);
znaki:=0;
repeat
readln(plik, linijka);
znaki:=znaki+length(linijka);
until eof(plik);
write(znaki);
readln;
end.
Użytkownicy przeglądający to forum: Brak zarejestrowanych użytkowników oraz 8 gości