Составить программу в паскале для вычисления n-четных множителей начиная с двух. Напишите пожалуйста точное решение
5-9 класс
|
var i,n,x:integer;
begin
write('Введите число n: ');
readln(n);
x:=1;
i:=2;
while i<=n do
begin x:=x*i;
i:=i+2
end;
writeln('Произведение четных чисел: ',x)
end.
Другие вопросы из категории
Читайте также
Агент 007 узнал, что в секретном сейфе трёхзначный код, в котором все три цифры разные.При этом средняя цифра равна разности крайних цифр. Составить программу, которая напечатает для него все такие числа.
составить программу в паскале для вычисления суммы и произведения чисел от 1 до 2.000 делящихся на 10. Сразу проверяйте,чтоб программа была рабочая.
число отрицательное, то выведите сообщение, что значение у не существует.
и составляют b руб(в месяц).Рост цен ежемесячно увеличивает расходы на 3%,составьте программу расчета необходимой суммы денег,которую нужно единовременно попросить у родителей,чтобы можно было прожить 10 месяцев,используя эти деньги.