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 драхме
Поделитесь своими знаниями, ответьте на вопрос:
Проанализируй таблицу и запиши правильный ответ. https://ykl-res.azureedge.net/c2929fd5-10e6-421a-9262-1d36bc4bd023/%D0%91%D0%B5%D0%B7%D1%8B%D0%BC%D1%8F%D0%BD%D0%BD%D1%8B%D0%B9.png (тут таблица) Jino.ru количество доменов:
1) 6
2) 6
Объяснение:
1) 8 - 3 + 1 = 6 раз
for начальное значение переменной счётчика to конечное значение переменной счётчика do
начальное значение переменной счётчика <= конечное значение переменной счётчика (или цикл не будет работать)
количество раз выполнения цикла = конечное значение переменной счётчика - начальное значение переменной счётчика + 1
2) 6 - 1 + 1 = 6 раз
for начальное значение переменной счётчика downto конечное значение переменной счётчика do
начальное значение переменной счётчика >= конечное значение переменной счётчика (или цикл не будет работать)
количество раз выполнения цикла = начальное значение переменной счётчика - конечное значение переменной счётчика + 1