1.
var n, k: integer;
begin
read(n);
k := n div 10;
n := n mod 10;
k := k + n div 5;
n := n mod 5;
k := k + n;
writeln(k);
<span>end.
2.
var n: integer;
begin
read(n);
writeln(n, ' суток = ', 24 * n, ' часов = ', 1440 * n, ' минут = ', 86400 * n, ' секунд');
<span>end.</span></span>
1. На носитель в 5Мб поместится 404 файла по 12960 Байт. 2. Каждый файл весит 3 234 991 Байт
Вывести в случайном порядке 10 чисел в промежутке от -5 до 5.
Программа: Pascal ABC
тема: Функция random.
81920 килобайт
или же 81 мб.