Question

Даны три действительных числа возвести в квадрат те из них, значения которых отрицательны. неотрицательные оставить без изменения(Pascal)напишите программу​

Answer 1

Ответ:

var a, b, c: real;

begin

 readln(a, b, c);

 if (a<0) then

   a:=(power (a,2));

 if (b<0) then

   b:=(power(b,2));

 if (c<0) then

   c:=(power(c,2));

 writeln(a, ' ', b, ' ', c);

end.

Answer 2

Для решения этой задачи на языке программирования Pascal, вам нужно прочитать три числа, проверить каждое из них, и если число отрицательное, то возвести его в квадрат. Если число неотрицательное, оставить его без изменений.

Вот пример кода, который выполняет это:

program SquareNegativeNumbers;
var
   a, b, c: real;
begin
   write('Введите первое число: ');
   read(a);
   write('Введите второе число: ');
   read(b);
   write('Введите третье число: ');
   read(c);

if a < 0 then a := sqr(a);
   if b < 0 then b := sqr(b);
   if c < 0 then c := sqr(c);

writeln('Полученные числа: a = ', a:0:2, ' b = ', b:0:2, ' c = ', c:0:2);
end.

В этом коде мы сначала объявляем три переменные типа `real` для хранения введенных чисел. Затем мы просим пользователя ввести три числа и читаем их с помощью функции `read`.

Далее мы проверяем каждое число на отрицательность с помощью условного оператора `if`. Если число отрицательное (то есть `a < 0`), мы возводим его в квадрат с помощью функции `sqr`.

Наконец, мы выводим полученные числа с помощью функции `writeln`. Мы также используем `:0:2` после каждого числа для форматирования вывода, чтобы ограничить вывод двумя знаками после десятичной точки.

Обратите внимание, что этот код не изменяет положительные числа и возводит в квадрат только отрицательные числа, как требовалось в задании .