A:=1, b:=1
While a<=32 do a:=a*2, b:=b*a
Write (b) ​

arinakovtik arinakovtik    3   10.04.2020 13:45    0

Ответы
vovachetaikin86 vovachetaikin86  14.04.2020 02:30

var

a,b:real;

begin

a:=1;

b:=1;

while a<>0 do

begin

write('Vvedite otricatelnoe 4islo: ');

readln(a);

if a<0 then b:=b*a;

end;

writeln('Proizvedenie otricatelnykh 4isel ravno ',b:5:3);

readln;

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика