Определите и выведите на экран произведение чётных чисел меньше 15. Паскаль

Question

Информатика

Фома

29 июня, 03:12

Определите и выведите на экран произведение чётных чисел меньше 15. Паскаль

+3

Ответы (1)

Знаете ответ на вопрос?

Албина · Answer 1

2; 4; 6; 8; 10; 12; 14 - найти произведение этих чисел

первое число 2, а каждое следующее на 2 больше предыдущего

program pr_chot;

var i, p:integer;

begin

p:=1;

i:=2;

while i<=15 do

begin

p:=p * i;

i:=i+2

end;

writeln ('p=', p)

end.