Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Работы полностью)) / 6.4.2(#16) / Отчет
.docxОтчет по работе 6.4.2 №16
Задание
Код работы:
CLS
COLOR 10.7
INPUT "N=", n
s = 1
FOR i = 1 TO n STEP 1
s = s * i
IF s > 0 THEN
o = o + s
END IF
NEXT
PRINT "S="; o
Скриншот программы с ответом:
Соседние файлы в папке 6.4.2(#16)