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

Question

Информатика

Кетевань

22 июня, 20:33

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

+3

Ответы (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.