Задачка. Находим случайное число используя MathRand(), и надо определить - четное или нечетное число. - страница 2

[Mesaoria]

Alexander Ivanov:
Вот на простом бейсике.

10 LET B=INT(RND(7))  

20 LET A=INT(B/2)                      //   Возвращает ближайшее сверху целое числовое значение.

30 IF (A*2)<B THEN PRINT"Нечетное число"

40 IF (A*2)=B THEN PRINT"Четное число"

45 PRINT B

50 PRINT"Ок."

программу можно проверить онлайн тут - http://www.quitebasic.com/user/

если что, в Бейсике есть оператор MOD

[Konstantin Erin]

Mesaoria:  если что, в Бейсике есть оператор MOD

В кодеБазе есть уже советники с рандомным открытием - пишут, приносят доход - ищите слово Random