Question

найти произведение четных чисел от 0 до n Pascal abc

Answer 1

Решено

program help;

var i,n:integer;

begin

readln(n);

for i := 1 to n do begin

   if i mod 2 = 0 then

       writeln(i);

end;

end.

*Вводишь число, получаешь все четные числа до него*

Answer 2

Вот теперь правильно!

Answer 3

Да блин!

Answer 4

ВОТ ПРАВИЛЬНЫЙ КОД:

Answer 5

program help;
var i,n,res:integer;
begin
res := 1;
readln(n);
for i := 1 to n do begin
if i mod 2 = 0 then
res:= res * i;
end;
writeln(res)
end.

Answer 6

все...