Var a,b,c:integer; begin writeln('введите 30 чисел'); readln(a); b:=1; c:=1; while b<>30 do begin if a > 0 then c:=a*c; readln(a); b:=b+1; end;writeln('ответ ',c); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
