Даны 3 числа. Возведите в квадрат те из них значения которых отрицательны. (записать программу на языке паскаль).

Question

Информатика

Сосипатра

1 октября, 03:20

Даны 3 числа. Возведите в квадрат те из них значения которых отрицательны. (записать программу на языке паскаль).

+5

Ответы (2)

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

Василия · Answer 1

Var a, b, c:longint;

begin

read (a, b, c) ;

if a<0 then

a:=sqr (a) ;

if b<0 then

b:=sqr (b) ;

if c<0 then

c:=sqr (c) ;

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

end.

Галя · Answer 2

Var a, b, c:integer;

begin

readln (a, b, c) ;

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

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

if c < 0 then c:=c*c;

writeln (a, b, c) ;

end.