Найти произведение n первых нечетных натуральных чисел, при помощи PASKAL
Аноним:
Хоть бы потрудились узнать, как название языка писать....
Уже ошибиться нельзя
Ошибиться можно каждому. Но написав что-то, надо все же читать написанное, благо тут есть возможность вносить исправления везде, кроме комментариев.
вы вообще только комментировать можете? Помочь не хотите?!!!
Я не помогаю тем, кто позволяет себе скрыто-агрессивный стиль общения с незнакомыми людьми, от которых, к тому же, они потенциально рассчитывают что-то получить.
Другими словами: я ничего не умею и ищу себе оправдания
Я понимаю, что не умеете, учитесь)))
Ответы
Ответ дал:
6
program n_1;
var a,i,n:integer;
begin
writeln('Введите количество натуральных чисел: ');
readln(n);
a:=1;
for i:=1 to n do
begin
if i mod 2 <> 0
then a:=a*i
end;
write('Произведение нечётных чисел данного диапазона равно: ', a)
end.
var a,i,n:integer;
begin
writeln('Введите количество натуральных чисел: ');
readln(n);
a:=1;
for i:=1 to n do
begin
if i mod 2 <> 0
then a:=a*i
end;
write('Произведение нечётных чисел данного диапазона равно: ', a)
end.
Вас заинтересует
11 месяцев назад
11 месяцев назад
6 лет назад
6 лет назад
7 лет назад