Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Fendi
0 / 0 / 0
Регистрация: 15.04.2018
Сообщений: 3
#1

Определить количество цифр и наименьшую цифру для каждого числа последовательности

15.04.2018, 13:20. Просмотров 716. Ответов 1
Метки нет (Все метки)

Поступает последовательность целых положительных чисел, 0 – конец
последовательности. Определить количество цифр и наименьшую цифру для
каждого числа последовательности. Написать процедуру, которая для заданного
числа возвращает два параметра: количество цифр в нем и наименьшую цифру.

Если есть время то пожалуйста с комментариями. Позарез нужно разобраться.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.04.2018, 13:20
Ответы с готовыми решениями:

Для каждого числа последовательности найти количество цифр 0 и 1.
Поступает последовательность целых положительных чисел, 0—конец...

Найти первую цифру , последнюю цифру, количество цифр и сумму цифр числа
Дано натуральное число n. Найти первую цифру , последнюю цифру, количество...

Для каждого числа последовательности найти количество его делителей
Доброго времени суток всем! Возникла проблема с данной программой : Вводится...

Для каждого члена последовательности из натуральных чисел найти количество нулей и единиц в записи числа
Поступает последовательность целых положительных чисел, 0 — конец...

Найти наименьшую цифру в числовой записи числа
Проверьте всё ли правильно в решении пожалуйста)) УСЛОВИЕ: Дано натуральное...

1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3794 / 2480 / 2050
Регистрация: 22.11.2013
Сообщений: 6,900
15.04.2018, 13:34 #2
Лучший ответ Сообщение было отмечено Fendi как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure Digits(n: Integer; var Count, MinDigit: Integer);
var t: Integer;
begin
  Count:=0; MinDigit:=9;
  repeat
    t:=n mod 10; n:=n mod 10; Inc(Count);
    if MinDigit>t then MinDigit:=t;
  until n=0;
end;
 
var n, c, m: Integer;
begin
  Read(n);
  while n<>0 do begin
    Digits(n,c,m); WriteLn(n,': цифр ',c,' минимальная ',m);
    Read(n);
  end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.04.2018, 13:34

Подсчитать количество членов последовательности из натуральных чисел, содержащие цифру 0 в записи числа
Поступает последовательность целых положительных чисел, 0 — конец...

Если строка является правильным записью целого числа, то найдите его наименьшую цифру
Дана строка. Если она является правильным записью целого числа, то найдите его...

Для каждого элемента последовательности найти среднее значение его цифр
Вводится последовательность из н целых элементов. Для каждого элемента...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru