9
1) 6
2) 6
Объяснение:
1) 8 - 3 + 1 = 6 раз
for начальное значение переменной счётчика to конечное значение переменной счётчика do
начальное значение переменной счётчика <= конечное значение переменной счётчика (или цикл не будет работать)
количество раз выполнения цикла = конечное значение переменной счётчика - начальное значение переменной счётчика + 1
2) 6 - 1 + 1 = 6 раз
for начальное значение переменной счётчика downto конечное значение переменной счётчика do
начальное значение переменной счётчика >= конечное значение переменной счётчика (или цикл не будет работать)
количество раз выполнения цикла = начальное значение переменной счётчика - конечное значение переменной счётчика + 1
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 драхме
9
Объяснение: