Делим нацело 8, 15, 13 на 3; 20, 60, 45 на 10; 11, 40, 20 на 5 и выбираем минимальные значения
Сахара нужно: 2
Яиц нужно: 5
Муки нужно: 4
Var
n, cnt: integer;
begin
write('Введите число: ');
read(n);
repeat
inc(cnt);
n := n div 10;
until n = 0;
writeln('Количество цифр в числе: ', cnt);
end.
Мир. маг.гиг.................
1.Выделение текста.
2.World Pat
3.Вродее Жирный
4.Пробел
5.War