1) Даны три числа. Возвести в квадрат те из них, значение которых отрицательны и найти их сумму.

ekaterinaefimenko16 ekaterinaefimenko16    1   25.10.2021 12:44    2

Ответы
kari2018 kari2018  25.10.2021 12:50

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.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика