Предмет: Информатика,
автор: nlo140
Создайте текстовый файл.
Определите, сколько строк файла имеют длину большую, равную и меньшую, чем
заданное значение k.
Ответы
Автор ответа:
0
Пусть данные находятся в d:f1.txt
var
k,min,eqv,max,n:integer;
s:string;
f:text;
begin
write('Введите k: ');
readln(k);
assign(f,'d:f1.txt');
reset(f);
while not eof(f) do
begin
readln(f,s);
n:=length(s);
if n<k then min:=min+1;
if n=k then eqv:=eqv+1;
if n>k then max:=max+1;
end;
writeln('Меньше k: ',min);
writeln('Равно k: ',eqv);
writeln('Больше k: ',max);
end.
var
k,min,eqv,max,n:integer;
s:string;
f:text;
begin
write('Введите k: ');
readln(k);
assign(f,'d:f1.txt');
reset(f);
while not eof(f) do
begin
readln(f,s);
n:=length(s);
if n<k then min:=min+1;
if n=k then eqv:=eqv+1;
if n>k then max:=max+1;
end;
writeln('Меньше k: ',min);
writeln('Равно k: ',eqv);
writeln('Больше k: ',max);
end.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: annakarataeva1985
Предмет: Биология,
автор: hinzobadanova446
Предмет: География,
автор: albertnver54
Предмет: Литература,
автор: SashaGON1999
Предмет: Математика,
автор: Olya13684