Вопрос по информатике:
Написать функцию которая считает количество цифр натурального числа затем в массиве из 10 натуральных чисел найти число с наибольшим количеством цифр. ПАСКАЛЬ. ПОМОГИТЕ ПОЖАЛУЙСТА!
- 12.06.2017 21:17
- Информатика
- remove_red_eye 1696
- thumb_up 44
Ответы и объяснения 1
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
function KolCifr(n:integer):=n.ToString.Length;
begin
var a:=ReadArrInteger('->',10);
var nmax:=a[0];
var kmax:=KolCifr(nmax);
for var i:=1 to 9 do begin
var k:=Kolcifr(a[i]);
if k>kmax then begin nmax:=a[i]; kmax:=k end
end;
Writeln('Число с макс.длиной: ',nmax)
end.
Тестовое решение:
-> 23532 195234523 423324312 6323 8523732 343235623 342 534544324 974535 253235
Число с макс.длиной: 195234523
- 13.06.2017 21:45
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.