Предмет: Информатика,
автор: ПОМ4ГИТЕ
найти произведение четных чисел от 0 до n Pascal abc
Анжой:
Ну если от 0 произведение четных то всегда 0 будет получаться...
А 0 нечетное же
Ахтунг! Пересмотрите решение, я исправил...
В коментариях...
Ответы
Автор ответа:
5
Решено
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.
*Вводишь число, получаешь все четные числа до него*
Эта программа просто выводит четные числа
А вот результат умножения всех четных чисел:
program help;
var i,n,res:integer;
begin
readln(n);
for i := 1 to n do begin
if i mod 2 = 0 then
res:= res * i
writeln(res)
end;
end.
var i,n,res:integer;
begin
readln(n);
for i := 1 to n do begin
if i mod 2 = 0 then
res:= res * i
writeln(res)
end;
end.
Вот теперь правильно!
Да блин!
ВОТ ПРАВИЛЬНЫЙ КОД:
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.
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.
все...
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Алгебра,
автор: denklimenko00
Предмет: История,
автор: donkihota8
Предмет: Информатика,
автор: nuraliev95
Предмет: Физика,
автор: Denis277