найти произведение чисел N,которые делятся на 3 нацело.
10-11 класс
|
Если N это количество чисел, начинаем с 3
var
i,n,p:integer
begin
readln(n);
i:=3;
p:=1;
while i<=3*n do
begin
p:=p*i;
i:=i+3;
end;
writeln(p);
end.
Если N это верхняя граница чисел
var
i,n,p:integer
begin
readln(n);
for i:=3 to n
if i mod 3 = 0 then
p:=p*i;
writeln(p);
end.
Другие вопросы из категории
ормации. Найдите, сколько компьютеров находится в кабинете №30. В ответе указать только число, например, 15.
Читайте также
написать программу, которая отвечает на вопрос " существуют ли два последовательных числа, не превосходящих N, сумма цифр каждого из которых делится на k?"
Входные данные: Два числа N(1<=N<=10000000000),k (1<=k<=100)
Выходные данные: Программа выводит два таких числа, если они существуют,"NO"- если нет.
которая отвечает на вопрос: "Существуют ли два последовательных числа, не превосходящих , сумма цифр каждого из которых делится на ?"
Входные данные. Два числа
Выходные данные. Программа выводит два таких числа, если они существуют, "NO" - если нет.
2. Найти квадраты всех отрицательных чисел среди N заданных.
3. Найти количество чисел, среди N введенных,которые имеют нечетные порядковые номера, а сами являются четными числам.
4. напишите программу для вычисления суммы:
- 1*1!+2*2!+3*3!+....+n*n!
- 1*3+3*5+5*7+...n(n+2)
- 1+11+111+...+111+1-n слагаемых.
Помогите, пожалуйста написать программы для паскаля, очень нужно. Заранее спасибо.
не делятся на 3. Составить блок-схему алгоритма, написать программу