p=1
i=4
DO WHILE i<79
i=i+1
IF i MOD 4=0 THEN k=k+1:p=p*i
LOOP
PRINT"kol=";k
PRINT"proizv=";p
Похожие записи/страницы:
- Вычислить количество и произведение чисел, кратных 4, на отрезке от 5 до 79 с помощью цикла - For ... Next-…
- Вычислить количество и произведение чисел, кратных 4, на отрезке от 5 до 79- QBasic(Бейсик)
- Даны целые числа из промежутка [-24; 56]. Найти сумму всех нечетных чисел и количество четных чисел. Найти произведение…
- Ввести два массива длиной 8. Определить номера отрицательных элементов одного массива и произведение положительных…
- Ввести два массива длиной 8. Определить номера отрицательных элементов одного массива и произведение положительных…
- Последовательно запрашивая у пользователя произвольные числа, пока не будет введён 0. Вычислить количество положительных…