Предмет: Информатика,
автор: pkhtzhe2
даны 3 числа a b c возвести в квадрат только отрицательные черeз qbasic
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Математика,
автор: horoshistotl
Предмет: Алгебра,
автор: daryavorobeva2007
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: 19822907
Предмет: Алгебра,
автор: Фотияди1998Дарья