Question

Построить блок-схему и написать программу для вычисления произведения четных чисел на Паскале

Answer 1

Распишите подробнее. Четные числа, которые вводятся с клавиатуры? Сколько этих чисел?
------------------------------------
var i,n,c:integer;
begin
readln(n);
с:=1;
for i:=2 to n do
if i mod 2=0 then c:=c*i;
writeln('Произведение четных чисел: ',c);
readln;
end.

Answer 2

Эта прога будет в ответе все время 0 печатать

Answer 3

В freepascal не обязательно присваивать 1 в переменную с.

Answer 4

Ну тогда будет 1 выдавать))

Answer 5

хахха, точняк)

Answer 6

Спасибо большое))