Turbo Паскаль программирование(интерактивные циклы))

Question

Turbo Паскаль программирование(интерактивные циклы))

Анонимочка Профи (739), на голосовании 13 лет назад

Помогите пожалуйста.
1. Вводится натуральное число n.
Определить минимальную цифру этого числа.
2.Вводится натуральное число n<100.
а) Проверить чтобы оно было меньше 100
б) Написать все выплаты суммы n монетами достоинством 1,5,10 и 20...

Answer 1

1) read(n);
a:=n;
min := a mod 10;
while x<>0 do
begin
x:=x div 10;
s:=x mod 10;
if min>s then min:=s;
end;
writeln(min);
2)
a)
if n<100 then write('da') else writeln('HET');
б)
все возможные выплаты или только одну?