program aaa;
const n=50;
var w, c, x, d10, d4, d1: integer;
begin
writeln ('введите вес бандероли');
readln (w);
if w < = n
then c: =10
else
if w mod n = 0
then c: =10+((w div n)-1)*5
else c: =10+5+((w div n)-1)*5;
d10: = c div 10;
d4: = (c-10*d10) div 4;
d1: = (c-d10*10-d4*4);
writeln ('стоимость бандероли: ',c,' драхм');
writeln;
writeln ('для оплаты нужно не менее');
writeln (d10: 10,' монет по 10 драхм');
writeln (d4: 10,' монет по 4 драхмы');
writeln (d1: 10,' монет по 1 драхме');
end.
результат работы программы:
введите вес бандероли 100
стоимость бандероли: 15 драхм
для оплаты нужно не менее
1 монет по 10 драхм
1 монет по 4 драхмы
1 монет по 1 драхме
❤️❤️❤️❤️❤️❤️❤️❤️❤️❤️❤️❤️❤️ответ: если делаешь сор то лови
1)Автоматическое
2)датчик цвета
3) Определяет угол и скорость вращения робота
4)1.медецинский
2.бытовой
3.промышленный
4.образовательный
5.транспортный
5)1.касания
2.цвета
3.ультрозвуковой
4.гороскопический
6)4 и 1 это точно
7)измерение цвета