Почему кода я вожу цифры в программе и нажимаю ентер то она тудже сворачивается в чем может быть ошибка?
program Project2;
{$APPTYPE CONSOLE}
uses
sysutils;
var f:text;
i:byte;
nf:string;
c:char;
kb,kc:integer;
begin
write('enter path to file: ');
readln(nf);
assign(f,nf);
reset(f);
kc:=0;
kb:=0;
while not eof(f) do
begin
read(f,c);
if (c in [#128,#129,#130..#175]) or (c in [#224,#225,#226..#240]) then kc:=kc+1
else if (c in [#65,#66,#67..#90]) or (c in [#97,#98,#99..#122])
then kb:=kb+1;
end;
close(f);
if kc>kb then write('Russian letters more!')
else if kb>kc then write('English letters more!')
else write('same!');
readln
end.
Главная
Каталог файлов
