Question

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

Answer 1

Также прикрепляю код во вложении.

===PascalABC.Net===

program brainly;

var

  num1, num2, num3 :integer;

begin

 Write('Введите три числа: ');

 ReadLn(num1, num2, num3);

 Write('Первое число: ');

 if num1 < 0 then

   WriteLn(abs(num1))

 else WriteLn(sqr(num1));

 

 Write('Второе число: ');

 if num2 < 0 then

   WriteLn(abs(num2))

 else WriteLn(sqr(num2));

 Write('Третье число: ');

 if num3 < 0 then

   Write(abs(num3))

 else Write(sqr(num3));

end.  

bed6aedb0a47a935ca0d5ec84d84bcae.pas