Даны числа x и y (вводятся с клавиатуры). Вычислить их сумму, разность и произведение- QBasic(Бейсик)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
USES CRT;
VAR a, b : INTEGER;
BEGIN
  CLRSCR;
  WRITE ("Vvedite chislo A: ");
  READLN (a);
  WRITE ("Vvedite chislo B: ");
  READLN (b);
  WRITE ("Summa: ");
  WRITELN (a + b);
  WRITE ("Raznost: ");
  WRITELN (a - b);
  WRITE ("Proizvedenie: ");
  WRITELN (a * b);
END.

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment