Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
x,y: real;
begin
x: =-1;
while x< =1 do
y: =x*x*x;
writeln(y);
x: =x+0.1;
end;
end.
в одном байте восемь бит. следовательно 100/8=12.5
ответ 12.5
Популярные вопросы