1 вариант. 1.Составить программу на языке Паскаль: x², при х>1; (1-х, при х≤1. y= 2. Ввести два числа. Если их произведение отрицательно, умножить его на -2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран. 3. В модельное агентство принимаются девушки с ростом выше 170 см и весом меньше 58. Определите, подходит ли кандидат в модели по введенному весу и росту?

Задача 1

Составить программу на языке Паскаль для вычисления функции:

\[ y = \begin{cases} x^2, & \text{при } x > 1 \\ 1 - x, & \text{при } x \le 1 \end{cases} \]

            
program FunctionValue;
var
  x, y: real;
begin
  write('Введите значение x: ');
  readln(x);
  if x > 1 then
    y := sqr(x)  // sqr(x) - это x в квадрате
  else
    y := 1 - x;
  writeln('Значение функции y = ', y:0:2);
  readln; // Чтобы консоль не закрывалась сразу
end.
            
            

• Программа запрашивает значение x.
• Если x больше 1, вычисляется x².
• Иначе вычисляется 1 - x.
• Результат выводится на экран.

Задача 2

Ввести два числа. Если их произведение отрицательно, умножить его на -2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран.

            
program ProductCheck;
var
  a, b, product: real;
begin
  write('Введите первое число: ');
  readln(a);
  write('Введите второе число: ');
  readln(b);
  product := a * b;
  if product < 0 then
    product := product * (-2)
  else
    product := product * 3;
  writeln('Результат: ', product:0:2);
  readln; // Чтобы консоль не закрывалась сразу
end.
            
            

• Программа запрашивает два числа a и b.
• Вычисляется их произведение.
• Если произведение отрицательно, оно умножается на -2.
• Иначе произведение умножается на 3.
• Результат выводится на экран.

Задача 3

В модельное агентство принимаются девушки с ростом выше 170 см и весом меньше 58. Определите, подходит ли кандидат в модели по введенному весу и росту?

            
program ModelAgency;
var
  height, weight: real;
begin
  write('Введите рост в см: ');
  readln(height);
  write('Введите вес в кг: ');
  readln(weight);
  if (height > 170) and (weight < 58) then
    writeln('Подходит в модели')
  else
    writeln('Не подходит в модели');
  readln; // Чтобы консоль не закрывалась сразу
end.
            
            

• Программа запрашивает рост и вес.
• Проверяется условие: рост > 170 и вес < 58.
• Если условие выполняется, выводится сообщение "Подходит в модели".
• Иначе выводится сообщение "Не подходит в модели".

Цифровой алхимик: Уровень интеллекта: +50

Минус 15 минут нудной домашки. Потрать их на катку или новый рилс

Не будь NPC — кинь ссылку бро, который всё еще тупит над этой задачей