С клавиатуры вводится последовательность чисел до тех пор, пока не будет введено число 0. Требуется найти произведение нечетных чисел из введенной последовательности. Решение с помощью while, подробно.
Ответы
Ответ дал:
3
var
a,p: integer;
begin
p:=1;
a:=1;
while a<>0 do begin
write('Введите a:');readln(a);
if a mod 2<> 0 then p:=p*a;
end;
writeln('произведение нечетных: ',p);
end.
a,p: integer;
begin
p:=1;
a:=1;
while a<>0 do begin
write('Введите a:');readln(a);
if a mod 2<> 0 then p:=p*a;
end;
writeln('произведение нечетных: ',p);
end.
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
5 лет назад
7 лет назад