Правила форума
Кто нибудь помогите, скоро зачет . Напишите пожалуйста алгоритм решения следующих задач:
1)Вводятся 2 целых числа N1 и N2.Из текстового файла считываются все символы, на экран выводяться те
из них, чье количество лежит между N1 и N2.
Погите пожалуйста. Буду очень благодарен
Я сделал как вы посоветовали
И вот что получилось:
type ar256 = array [0..255] of word;
var
ar:ar256;
i,n1,n2:word;
fname:string;
procedure schet(var arr:ar256; fname:string);
var f:text; rc:char;
begin
assign(f,fname);
reset(f);
while not eof(f) do
begin
read(f,rc);
arr[ord(rc)]:=arr[ord(rc)]+1;
end;
end;
BEGIN
write('Type the name of file: ');
readln(fname);
write('Two numbers: ');
if n1>n2 then
begin
n1:=n1+n2;
n2:=n1-n2;
n1:=n1-n2;
end;
readln(n1,n2);
writeln('In file ',fname,' count of this symbols N: ',n1,'<N<',n2);
schet(ar,fname);
for i:=0 to 255 do
if (ar[i]>n1) and (ar[i]<n2) then write(chr(i),' ');
readln;
END.
Но есть проблема в том что программа не работает
Напишите пожалуйста Алгоритм правильный, чтобы заработала.
 задача, N1 и N2... |
