Найти произведение четных чисел от 1 до 15
5-9 класс
|
Можно так:
var i,p: integer;
begin
p:=1;
for i:=2 to 15 do
if i mod 2=0 then p:=p*i;
writeln('Произведение четных чисел: ',p)
end.
Или так:
var i,p: integer;
begin
i:=2;
p:=1;
while i<15 do
begin
p:=p*i;
i:=i+2
end;
writeln('Произведение четных чисел: ',p)
end.
Другие вопросы из категории
из 65536 цветов.(за одну секунду сменяется 24 кадра)
Читайте также
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.
2)Даны натуральные числа от 1 до 150. Найти сумму тех из них, которые делятся на 5 или на 7.
3)Напечатать те из чисел от 10 до 50, которые делятся на 4, но не делятся на 6
4)Найти произведение нечетных чисел от 10 до 50, кратных 13
кто может сделать в Паскале или просто решить?
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль