Регистрация
vladimirshmele1
08.04.2020 14:38
Информатика
Есть ответ 👍

4. Разработайте программу для решения задачи В саду находятся X ящиков. В первом ящике находятся 8 кг груш, в каждой последующем ящике на 5
Кт. больше груш, чем в предыдущем. Сколько груш в последнем ящике?
Формат входных данных:
Программа получает на вход одно целое число
значение (0-Х<=100).
Формат выходных данных:
Программа выводит количество кт. груш в последнем ящике.
Пример:
3
21​

231
326
Посмотреть ответы 1

Ответы на вопрос:

vb8515401
vb8515401
4,4(98 оценок)
Const       handsfree = false;       nmax = 100;       random_min = -50;       random_max = 50; var       a: array[1..nmax] of real;       i, n, j: integer;       temp: real; begin       {ввод массива}       if handsfree then               n : = random(nmax - 5) + 5       else begin               write('n = ');               readln(n);       end;             writeln('данные массива: ');       for i : = 1 to n do       begin               if handsfree then begin                       a[i] : = random(random_max - random_min) + random_min;                       write(a[i], ' ');               end               else                       readln(a[i]);       end;       writeln();             {изменение элементов}       writeln('число для замены =');       read(temp);       writeln('новые значения: ');       for i : = 1 to n do       begin               a[i] : = temp;               write(a[i], ' ');       end; end.

Популярно: Информатика