Предмет: Информатика,
автор: oleg08510
Вводятся m чисел , если ввели больше 10 то найти их сумму , если меньше 10 то найти произведение
Ответы
Автор ответа:
0
var
m, i: integer;
s, p, d: real;
begin
readln(m);
p := 1;
s := 0;
for i := 1 to m do
begin
readln(d);
s := s + d;
p := p * d;
end;
if m > 10 then writeln(s);
if m < 10 then writeln(p);
end.
m, i: integer;
s, p, d: real;
begin
readln(m);
p := 1;
s := 0;
for i := 1 to m do
begin
readln(d);
s := s + d;
p := p * d;
end;
if m > 10 then writeln(s);
if m < 10 then writeln(p);
end.
Автор ответа:
0
Почему произведение 1?
Автор ответа:
0
а ты головой подумай, это ж произведение. если б было 0 изначально то и в конце всегда было бы 0
Автор ответа:
0
1 - нейтральное число при умножении, так же как 0 при добавлении
Похожие вопросы
Предмет: Математика,
автор: anyaizmaylova2010
Предмет: Английский язык,
автор: bdievradik
Предмет: Английский язык,
автор: maks208282
Предмет: Литература,
автор: pasha20040622
Предмет: Химия,
автор: Аноним