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

Отчет по работе 6.4.216

Задание

Код работы:

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)