Составить программу на языке Паскаль если два числа положительные, то возвести оба числа в квадрат если оба числа отрицательные, то найти их модуль

Question

Информатика

Беля

14 июня, 18:33

Составить программу на языке Паскаль если два числа положительные, то возвести оба числа в квадрат если оба числа отрицательные, то найти их модуль

+2

Ответы (1)

Знаете ответ?

Витушка · Answer 1

Var a, b: integer;

begin

readln (a, b) ;

if ((a<0) and (b<0)) then writeln (-a,' ',-b)

else

begin

if ((a>=0) and (b>=0) then writeln (a*a,' ', b*b)

else writeln ('Заданные числа не соответствуют условиям') ;

end;

end.

end.