Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Работы полностью)) / Практика / 5.28(В) / Отчет
.docxОтчет по работе №5.28(В)
Задание
Код работы:
CLS
COLOR 10.7
INPUT "B=", b
IF b < 1 AND b > 20 THEN
PRINT "Nevernoe chislo B"
END IF
s = 1
FOR i = 1 TO b STEP 1
s = s * i
NEXT
PRINT "Proizvedenie Chisel ot 1 do"; b; "="; s
Скриншот программы с ответом: