Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
8
Добавлен:
22.03.2016
Размер:
40.69 Кб
Скачать

Отчет по работе 6.2 Часть А №16

Задание

Составить программу, определяющую результат гадания на ромашке — «любит—не любит», взяв за исходное данное количество лепестков п.

Код работы:

CLS

COLOR 10.7

INPUT "Kolichestvo lepestkov=",a

IF a MOD 2 = 0 THEN

PRINT "Lubit"

ELSE

PRINT "Ne lubit"

END IF

Скриншот программы с ответом:

Соседние файлы в папке 6.2(A)(#16)