Требуется, определяя для каждого числа количество цифр, использовавшихся при его записи, найти и вывести максимальное такое значение

@NoviiMir · Регистрация: 23.09.2012

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

Дан текстовый файл с именем FileName, в первой строке которого записано единственное число N, а во второй строке последовательность из N целых чисел, разделенных пробелами. Требуется, определяя для каждого числа количество цифр, использовавшихся при его записи, найти и вывести максимальное такое значение. Массивы использовать запрещается, а файл для чтения открывать только один раз.

@XRain · 07.10.2012, 13:14

Pascal

program project;
 
var
max,i,n,t,k:integer;
 
begin
    assign(input,'FileName');reset(input);
    readln(n);
    max:=-1;
    for i:=1 to n do
    begin
      read(t);
      k:=1;
      while t>1 do
      begin
        t:=t div 10;
        k:=k+1;
      end;
      if k>max then max:=k;
    end;
    writeln(max);
end.

@NoviiMir 10 / 10 / 2 Регистрация: 23.09.2012 Сообщений: 427
		1
	Требуется, определяя для каждого числа количество цифр, использовавшихся при его записи, найти и вывести максимальное такое значение 06.10.2012, 17:52. Показов 1202. Ответов 1 Метки нет (Все метки) Дан текстовый файл с именем FileName, в первой строке которого записано единственное число N, а во второй строке последовательность из N целых чисел, разделенных пробелами. Требуется, определяя для каждого числа количество цифр, использовавшихся при его записи, найти и вывести максимальное такое значение. Массивы использовать запрещается, а файл для чтения открывать только один раз. 0

	07.10.2012, 13:14

Опции темы

Требуется, определяя для каждого числа количество цифр, использовавшихся при его записи, найти и вывести максимальное такое значение

Решение