Найти минимальную цифру натурального числаформат ввода: на вход подается натуральное, не превосходящее 30000.формат вывода: целое число.пример входных данных: 651пример выходных данных: 1пояснение: отсутствует.сделайте на паскале плз
адам121
2
18.03.2019 12:26
15
Другие вопросы по теме Информатика
shok0
23.06.2019 06:30
алина200423
07.04.2020 20:59
Lunitoes
07.04.2020 20:59
DeQwert
07.04.2020 20:58
varvaranepomnas
22.07.2019 16:40
Augustine1234ma
22.07.2019 16:40
Ашеашачочєо
22.07.2019 16:40
darya1122334455667
22.07.2019 16:40
Популярные вопросы
- Изобразить в прямоугольной системе координат множество PxB P={X|X принадлежит...
1 - 5/7:10;3/5:3;8/11:6;12/35:12...
2 - сплав состоит из 3 частей меди и 4 частей воды 5 частей цинка сколько граммов...
2 - 2-тапсырма Берілген сөздердің ішінен кәсіби сөздерді тауып, тиісті бағанға жазыңдар...
2 - Составьте и запишите предложения с прямой речью, соблюдая знаки препинания Дам...
3 - Аэропты анаэропты үдерістің ПӘК і...
2 - ответьте на вопросы 1. Сколько лет был женат Берендей? 2.Куда он поехал через...
2 - Для чего проводилась аттейстерская политика...
1 - сделать кроссворд на английском ...
1 - Писатель написал книгу и нанял стенографиста, чтобы ввести ее в компьютер. Оказалось,...
3
Var
x, sum: integer;
begin
read(x);
while(x gt; 0) do
begin
if(x mod 10 lt;= 5) then sum := sum + x mod 10;
x := x div 10;
end;
write(sum);
end.