Anonymní profil Artis0608 – Programujte.com

#2 JoDiK
zatím jsem dokázal sestavit jenom program, který mi vypíše četnost znaku pismen cislic ale dál už nevím.


program Cetnost2;

 uses SysUtils;

var f: text;

c: char;

cislice, pismena, celkem: integer;

begin

assign(f,'c:/text.txt');

reset(f);

cislice:=0; pismena:=0; celkem:=0;

while not eof(f) do

begin 

read(f,c);

if (c>='0') and (c<='9') then cislice:=cislice+1;

if (c>='A') and (c<='z') then pismena:=pismena+1;

celkem:=celkem+1;

write(c);

end;

close(f);

writeln;

writeln('V souboru je ',cislice,' cislic a ',pismena,'pismen');

writeln('Celkem je v souboru ',celkem,' znaku'); readln;

end.