Найти произведение чисел введеных с клавиатуры, пока - вопрос №45408070 от Boris2006 03.07.2022 16:12

Question

Информатика: Найти произведение чисел введеных с клавиатуры, пока не будет введен 0

Boris2006 · Answer

Var a,b:integer;begin;b:=1;a:=1;while a 0 dobegin;readln(a);if a=0 then break;b:=b*a;end;writeln(b);end....