Question

Найти произведение чисел 2, 4 , 6, 8, 10 Дано: i=2 i=i+2 S=1 Найти: S-? Как: S=S*i i меньше 10.

Answer 1

uses crt;
var
  i,s:integer;
begin
  i:=2; s:=1;
  while i<=10 do
  begin
    s:=s*i;
    i:=i+2;
  end;
  write(s);
end.