Решить задачи по информатике
Var
a:integer;
p:real;
begin
p:=1;
repeat
readln(a);
if (a>=-10)and(a<=10) then
p:=p*a;
until (a<-10)or(a>10);
writeln(p:4:0);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
