Создайте текстовый файл.

Определите, сколько строк файла имеют длину большую, равную и меньшую, чем

заданное значение k.

Question

Информатика

Ярослав

18 июля, 22:33

Создайте текстовый файл.

Определите, сколько строк файла имеют длину большую, равную и меньшую, чем

заданное значение k.

+2

Ответы (1)

Знаете ответ на вопрос?

Леруха · Answer 1

Пусть данные находятся в 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
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.

Создайте текстовый файл.Определите, сколько строк файла имеют длину большую, равную и меньшую, чемзаданное значение k.

Создайте текстовый файл.

Определите, сколько строк файла имеют длину большую, равную и меньшую, чем

заданное значение k.