Question

Задача в паскаль Швейная фабрика выпустила 1200 костюмов, из них n% - составляют костюмы нового сезона. Вывести количество костюмов нового сезона и прошедшего сезона

Answer 1

Var n: integer;
begin
read(n);
writeln('New: ', (1200 * n) div 100);
writeln('Past: ', 1200 - ((1200 * n) div 100));
end.

Answer 2

В данной задаче мы имеем фабрику, которая выпустила 1200 костюмов. Для нахождения количества костюмов нового сезона и прошедшего сезона, нам необходимо знать процент k, который составляют костюмы нового сезона.

Пусть x будет количество костюмов нового сезона, а y - количество костюмов прошедшего сезона. Тогда имеем следующую систему уравнений:

x + y = 1200 (уравнение 1) x = (n/100) * 1200 (уравнение 2)

Далее, заменяем x в уравнении 1 согласно уравнению 2:

(n/100) * 1200 + y = 1200

Раскрываем скобки и переносим y на другую сторону уравнения:

(n/100) * 1200 = 1200 - y

Далее, упрощаем уравнение:

(n/100) * 1200 = 1200 - y

Получаем:

n * 12 = 1200 - y

Решаем данное уравнение относительно y:

1200 - y = n * 12 y = 1200 - n * 12

Таким образом, мы нашли количество костюмов прошедшего сезона y. + Количество костюмов нового сезона x равно:

x = (n/100) * 1200

Теперь мы можем запрограммировать данную задачу на языке программирования Pascal. Ниже приведен пример кода для решения данной задачи:

program SuitFactory;
var
  totalSuits, newSeasonSuits, oldSeasonSuits, n: integer;
begin
  totalSuits := 1200;
  writeln('Введите процент, составляющий костюмы нового сезона (n): ');
  readln(n);
  
  newSeasonSuits := (n/100) * totalSuits;
  oldSeasonSuits := totalSuits - newSeasonSuits;

writeln('Количество костюмов нового сезона: ', newSeasonSuits);
  writeln('Количество костюмов прошедшего сезона: ', oldSeasonSuits);
end.

Пользователь сначала вводит процент n, а затем программа вычисляет и выводит количество костюмов нового и прошедшего сезона.