Связь с администрацией сайта:       

demo

Среди толпы я одинок

Дано целое положительное пятизначное число. Найти наименьшую цифру в этом числе

Дано целое положительное пятизначное число. Найти наименьшую цифру в этом числе на языке Pascal(Паскаль).

 

 

Var n,i,min:integer;
Begin
Writeln('Введите целое положительное пятизначное число:');
Readln(n);
min:=9;
for i:=1 to 5 do
begin
if n mod 10<min then min:=n mod 10;
n:=n div 10;
end;
Writeln('Минимальная цифра: ',min);
End.

Можно другим циклом. Тогда будет справедливо для любого числа, а не только для пятизначного:

 

While n<>0 do
begin
if n mod 10<min then min:=n mod 10;
n:=n div 10;
end; 
Rate this item
(0 votes)
Login to post comments