Var
x,y:real;
begin
x:=-1;
while x<=1 do begin
Writeln('x=',x:4:1,', y=',x*x*x:9:6);
x:=x+0.1
end
end.
<em><u>Результат выполнения программы:</u></em>
x=-1.0, y=-1.000000
x=-0.9, y=-0.729000
x=-0.8, y=-0.512000
x=-0.7, y=-0.343000
x=-0.6, y=-0.216000
x=-0.5, y=-0.125000
x=-0.4, y=-0.064000
x=-0.3, y=-0.027000
x=-0.2, y=-0.008000
x=-0.1, y=-0.001000
x= 0.0, y= 0.000000
x= 0.1, y= 0.001000
x= 0.2, y= 0.008000
x= 0.3, y= 0.027000
x= 0.4, y= 0.064000
x= 0.5, y= 0.125000
x= 0.6, y= 0.216000
x= 0.7, y= 0.343000
x= 0.8, y= 0.512000
x= 0.9, y= 0.729000
x= 1.0, y= 1.000000
Ответ:
Объяснение:
2)
program uravn;
var x,y:real;
begin
writeln('Введите х');
readln(x);
y:=x+2.5;
y:=y*x;
y:=y-1;
y:=y*x;
y:=y+1;
writeln('y=',y:4:2);
readln;
end.
3)
program rasst;
var
d,xa,ya,xb,yb:real;
begin
writeln('Введите координаты точек А(xa,ya), В(xb,yb)');
write('xa=');
readln(xa);
write('ya=');
readln(ya);
write('xb=');
readln(xb);
write('yb=');
readln(yb);
d:=sqrt(sqr(xb-xa)+sqr(ya-yb));
writeln('|AB|=',d:4:2);
readln;
end.
#include <iostream>
using namespace std;
int main() {
setlocale(0, "RUS");
int x[25];
for (int i = 0; i < 5; i++) {
cin >> x[i];
}
cout << "Исходный массив" << endl;
for (int i = 0; i < 5; i++) {
cout << x[i] << " ";
if (x[i] < 0) x[i] += 5;
}
cout << endl << "Новый массив" << endl;
for (int i = 0; i < 5; i++) {
cout << x[i] << " ";
}
cout << endl;
system("pause");}
2 Кбайта = 16384 бит
14571 бит = 1.7 Кбайт
1.5 Мбайт = 1572864 байт
3 Кбайт = 24576 бит
2458 байт = 2.4 Кбайт
74125 бит = 9 Кбайт
Вот так.Держи.
