Даны 3 числа a b c возвести в квадрат только отрицательные черeз qbasic
Даны 3 числа a b c возвести в квадрат только отрицательные черeз qbasic
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы