Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Объяснение:
Но это не точно
var
x,y: real;
begin
x: =-1;
while x< =1 do
y: =x*x*x;
writeln(y);
x: =x+0.1;
end;
end.
a,b,c: real;
readln(a,b,c);
writeln((a+b+c)/3);
Популярные вопросы