Question

Матрёшки выстроены в ряд по росту. Для заданного числа матрёшек N определить размер самой маленькой, если каждая матрёшка меньше своей соседки на 30%, а размер самой большой 80 см. Написать программу Паскаль

Answer 1

20202020202202020202020200202

Answer 2

Для решения данной задачи на Паскале, можно использовать следующий код:

program Matryoshka;

var
  N: Integer;
  smallestSize: Real;
  largestSize: Real;

begin
  writeln('Введите количество матрёшек N:');
  readln(N);
  
  writeln('Введите размер самой большой матрёшки (в см):');
  readln(largestSize);
  
  smallestSize := largestSize;
  
  while N > 1 do
  begin
    smallestSize := smallestSize * 0.7;
    N := N - 1;
  end;
  
  writeln('Размер самой маленькой матрёшки: ', smallestSize:0:2, ' см');
end.

В этом коде мы сначала запрашиваем у пользователя количество матрёшек `N` и размер самой большой матрёшки `largestSize`. Затем мы инициализируем переменную `smallestSize` значением `largestSize`, так как самая маленькая матрёшка будет иметь такой же размер.

Затем мы используем цикл `while`, чтобы уменьшить размер `smallestSize` на 30% для каждой матрёшки, начиная с самой большой и заканчивая самой маленькой. Цикл выполняется `N - 1` раз, так как самая большая матрёшка уже имеет изначальный размер.

Наконец, мы выводим размер самой маленькой матрёшки с помощью команды `writeln`.

Примечание: В данном коде предполагается, что пользователь вводит корректные значения для `N` и `largestSize`. Если пользователь вводит некорректные значения, то программа может дать непредсказуемый результат.

Например, если пользователь вводит `N = 5` и `largestSize = 80`, то размер самой маленькой матрёшки будет равен 23.04 см.