Question

в паскаль даны 2 числа. возвести их в квадрат , если они не отрицательны. отрицательные числа оставить без имени ​

Answer 1

===== PascalABc.NET =====

begin

 var (a, b):= ReadReal2('Введи два числа:');

 if a >= 0 then a := a * a;

 if b >= 0 then b := b * b;

 Println(a, b)

end.

Answer 2

Вот пример кода на языке Pascal, который выполняет заданную операцию:

pascalCopy code
program SquareNumbers;

var
  num1, num2, square1, square2: Integer;

begin
  writeln('Введите два числа:');
  readln(num1, num2);

  if num1 >= 0 then
    square1 := num1 * num1;

  if num2 >= 0 then
    square2 := num2 * num2;

  writeln('Квадраты чисел:');
  if num1 >= 0 then
    writeln('Число 1:', square1);

  if num2 >= 0 then
    writeln('Число 2:', square2);

  readln;
end.

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