1. Вычислите произведение чисел от 1 до 20 с применением функции ФАКТРО).
2. Введите данные о возрасте ваших одноклассников и вы-
числите средний возраст учеников в классе, используя
встроенные функции в Excel.
​

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 драхме