Question

Составьте программу, проверяющую, что введенное число является четным или нечетным.

Answer 1

qbasic

? "Введите число"

INPUT A

A:2=B

IF B=INT(B) THEN 1 ELSE 2

1 ? "Это число четное" : GOTO 3

2 ? "Это число не четное" 

3 END