1. Информатика
  2. Составьте программу к .дано

Составьте программу к .дано натуральное число n.требуется найти его наименьшую цифру.​

din46 din46    3   14.11.2019 05:56    0

Ответы
totty1 totty1  10.10.2020 13:06

var

 n, d, min: integer;

begin

 read(n);

 n := abs(n); // Если введено отрицательное

 min := 10;

 while n > 0 do

 begin

   d := n mod 10;

   n := n div 10;

   if d < min then

     min := d;

 end;

 write(min);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Вика5552002 Вика5552002  25.06.2019 05:30
Пользователь перемещаясь из одного каталога в другой, последовательно посетил каталог academy, course, group, e: /, professor, lections. при каждом перемещении пользователь...
artik5990765 artik5990765  25.06.2019 05:30
Используя оператор while, напишите программу, которая выводит на экран значения функции y=f(x) для аргумента, принимающего значение от x1 до x2 с шагом дx: y=x/3 + 2....
YulyaDremina YulyaDremina  08.10.2019 13:50
Напишите программу. с оператора цикла for рассчитайте произведение натуральных чисел от 1 до n. n=6​...
irasemenova1 irasemenova1  08.10.2019 13:50
Как сделать машину в scratch 1,4 со скоростями, чтобы она могла сама ехать и менять скорость без нажатий клавиш. если можно то блок схемой...
Pahamoseuv Pahamoseuv  08.10.2019 13:50
Pascal abcв двумерном массиве определить есть ли элементы больше 7, если есть, то элементы строки, в которой содержится данный элемент возвести в квадрат, кроме него...
nurikparik nurikparik  02.08.2019 23:40
Uses crt; var n,s,s1,s2,k: integer; begin writeln( введите число: ); readln(n); s: =0; s1: =0; s2: =0; while n 0 do begin inc(k); if k mod 2 = 0 then begin s: =s+n mod...
Дмитрий308228 Дмитрий308228  27.04.2021 17:42
111 Знайти площу трикутника за теоремою Герона. (Формула у прикріпленому файлі). Довжини сторін трикутника дійсні числа. НА РУССКОМ: Найти площадь треугольника по теореме...
Slipknot55479876544 Slipknot55479876544  25.05.2019 13:30
Вычислите необходимый объем видеопамяти для графического режима, если разрешение экрана монитора 1024 на 768, глубина цвета 32 бита. дано: решение: к=1024*768 i=32 бита...
mashkavoronina mashkavoronina  25.05.2019 13:30
1) песня весит 5,7 мб. скорость загрузки 10 мб/сек. за какое время закачается песня? 2)фильм 2,1 гб. скорость загрузки 5 мб/сек. за какое время закачается фильм? 3)фильм...
ayratka2 ayratka2  25.05.2019 13:30
Закодируйте с кодировочной таблицы ascii слово password...

Популярные вопросы