Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

Найти произведение четных чисел от 1 до 15

5-9 класс

Alimpievvlad 16 окт. 2013 г., 7:41:39 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
русрусрус
16 окт. 2013 г., 10:29:42 (10 лет назад)

Можно так:
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.

Ответить

Читайте также

Паскаль абс 2 задачи 1)Написать программу выводящую на экран последовательность чисел от 1 до 10 через пробел в строчку.

2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.

1)Вывести на экран квадраты и кубы нечётных целых чисел от 9 до 1.

2)Даны натуральные числа от 1 до 150. Найти сумму тех из них, которые делятся на 5 или на 7.
3)Напечатать те из чисел от 10 до 50, которые делятся на 4, но не делятся на 6
4)Найти произведение нечетных чисел от 10 до 50, кратных 13
кто может сделать в Паскале или просто решить?

1)найти сумму первых k последовательных нечетных чисел. написать программу в паскале. 2)вывести на экран натуральные нечетные числа от 5 до 55.тоже

паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль



Вы находитесь на странице вопроса "Найти произведение четных чисел от 1 до 15", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.