Даны 3 числа a b c возвести в квадрат только отрицательные черeз qbasic

Question

57

в избранное ссылка

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

edmon · Accepted Answer

98

edmon

08 марта 2023

Var a, b, c: longint; begin readln (a, b, c); if a<0 then writeln (a*a); if b<0 then writeln (b*b); if c<0 then writeln (c*c); end.

комментировать

в избранное ссылка отблагодарить