Найти произведение длин самой длинной и первой строк

@UT20 · Регистрация: 05.10.2019

Студворк — интернет-сервис помощи студентам

Решить задачу с использованием структуры текстовый файл (в файле целые числа). Найти произведение длин само длинной и первой строк

@ZX Spectrum-128 · 16.10.2019, 11:15

Взято отсюда:
Найти сумму длин самой длинной и k-й от конца файла строк

Pascal

var
  s: string; 
  f: text;
  dl, dl_k: integer;
 
begin
  assign(f, 'zero.txt'); 
  reset(f); 
  dl := 0;
  readln(f, s);
  dl_k := length(s);// first 
  reset(f); 
  while not eof(f) do 
  begin
    readln(f, s);
    if (Length(s) > dl) then
      dl := Length(s); 
  end; 
  close(f); 
  writeln('Длина самой длинной строки: ', dl, '; длина 1-ой строки: ', dl_k, '; произведение: ', dl * dl_k); 
end.

Файл:

1 1 1 1 1 1
2 2 2 2 2 2 2 2
3 3 3 3 3 3 3 3 3

Добавлено через 17 секунд

Сообщение от UT20

(в файле целые числа

Это зачем?

@UT20 0 / 0 / 0 Регистрация: 05.10.2019 Сообщений: 9
		1
	Найти произведение длин самой длинной и первой строк 16.10.2019, 05:42. Показов 845. Ответов 1 Метки нет (Все метки) Решить задачу с использованием структуры текстовый файл (в файле целые числа). Найти произведение длин само длинной и первой строк 0

Опции темы