Определить является ли число целым и оканчивается ли оно цифрой 7 - QBasic

Формулировка задачи:

Доброго времени суток! Помогите пожалуйста решить задачку. Дано целое число. Определить является ли оно целым и оканчивается ли оно цифрой 7. Решение: Текст программы

                    Листинг программы
                
 
                        
                          
                    
CLS
INPUT "Введите число N="; N
IF INT(N) = N THEN 10 ELSE 20
10 PRINT "Число N - целое"
END
20 PRINT "Число N - не является целым"
END

Первую часть я вроде бы сделала. А вот с окончанием на 7 у меня проблема. Помогите, пожалуйста!

Решение задачи: «Определить является ли число целым и оканчивается ли оно цифрой 7»

Листинг программы

IF a MOD 10 = 7 THEN PRINT "okanchivaetsja na 7" ELSE PRINT "net"

Объяснение кода листинга программы

Проверяется, делится ли число a на 10 без остатка (a MOD 10 = 0).
Если остаток от деления равен 7, то выводится сообщение okanchivaetsja na 7, иначе выводится сообщение net.

Оцени полезность:

7 голосов , оценка 3.571 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы