Предмет: Информатика,
автор: tommylee1999
С клавиатуры вводится последовательность чисел до тех пор, пока не будет введено число 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.
Интересные вопросы
Предмет: Литература,
автор: mariatitovalovecat
Предмет: Українська мова,
автор: anna23404
Предмет: Литература,
автор: question444
Предмет: Физика,
автор: ivanovegr
Предмет: Русский язык,
автор: gigihad7