Описать функцию, которая возвращает сумму наименьших цифр входящих в запись числа типа Longint - Free Pascal

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Описать функцию, которая возвращает сумму наименьших цифр входящих в запись числа типа Longint»

textual
Листинг программы
  1. var
  2.   n: Longint;
  3.   m, d, s: Integer;
  4. begin
  5.   Write('Введите число: '); ReadLn(n);
  6.   m:=n mod 10;
  7.   while n>0 do begin
  8.     d:=n mod 10; n:=n div 10;
  9.     if m=d then Inc(s,d)
  10.     else if m>d then begin
  11.       m:=d; s:=d;
  12.     end;
  13.   end;
  14.   WriteLn('Сумма наименьших цифр: ', s);
  15. end.

Объяснение кода листинга программы

  1. Объявлены переменные: n, m, d, s типа Longint, Integer, Integer.
  2. Выводится сообщение «Введите число: » и считывается число типа Longint в переменную n.
  3. Вычисляется первая цифра числа n (м) путем взятия остатка от деления на 10.
  4. Запускается цикл while, который выполняется до тех пор, пока n больше нуля.
  5. В каждой итерации цикла вычисляется следующая цифра числа n (d) путем взятия остатка от деления на 10.
  6. Если m равно d, то к переменной s прибавляется d.
  7. Если m больше d, то сбрасываются переменные m и s равными d.
  8. После окончания цикла выводится сообщение «Сумма наименьших цифр: » и выводится сумма наименьших цифр (s).

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.8 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы