Question

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

Answer 1

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.

Answer 2

Для того чтобы возвести только отрицательные числа a, b и c в квадрат через QBasic, можно использовать следующий код:

INPUT "Введите число a: ", a
INPUT "Введите число b: ", b
INPUT "Введите число c: ", c

IF a < 0 THEN
    a = a * a
END IF

IF b < 0 THEN
    b = b * b
END IF

IF c < 0 THEN
    c = c * c
END IF

PRINT "Квадрат отрицательных чисел: "
PRINT "a: "; a
PRINT "b: "; b
PRINT "c: "; c

Этот код сначала запрашивает у пользователя ввод трех чисел a, b и c. Затем он проверяет каждое число на отрицательность и, если число отрицательное, возводит его в квадрат. Результаты выводятся на экран.

Пожалуйста, обратите внимание, что QBasic является устаревшим языком программирования, и его использование не рекомендуется для разработки новых программ.