Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Написать прогу на паскале. Дано натуральное число n. Вычислить y=2*4*6...(2n).

Ответ оставил Гость

Program Program1;
var
i,n,y:integer;
begin
write(Введите значение n: );
readln(n);
i:=2;
y:=1;
while i<=2*n do
begin
y:=y*i;
inc(i,2);
end;
writeln(y=,y);
end.