Const
cost_1 = 10;
cost_pack = 90;
var
m: integer;
begin
readln(m);
writeln('Блоков: ', m div cost_pack);
writeln('Дисков: ', (m mod cost_pack) div cost_1);
end.
===== PascalABC.NET =====
begin
var a := ArrRandom(12, -2, 15);
Println('Исходный массив');
a.Println;
Println('Отобранные элементы');
a[2:].Println;
Println('После сортировки');
a[2:].Sorted.Println
end.
Решение смотри во вложении.
Имеешь в виду коды ошибок? Если да то:
1) 404 - Страница не найдена
2) 403 - Соединение с сервером закрыт
3) <span>302 - Ресурс временно перемещен
4) </span>305 - Следует использовать прокси<span>
5) </span>400 - Неверный запрос<span> </span>
Попириписывалась пол опроса им про ос ряд Ир щмр