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 ( Скачать )