Ответ: 0,-10,-20
Так как 20 - 10 = 10 и это интервал
Ответ:
Объяснение:
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.
1) не ясен вопрос
2) 0 2 6 12 20 30 42 56 72 90
3) 5
4) for i := 1 to 10 do
begin
if (a[i] < 0) then
a[i] := -1
else a[i] := 1;
write(a[i], ' ');
end;
Код полностью
var
a: array[1..10] of integer;
i, k: integer;
begin
for i := 1 to 10 do
begin
a[i] := sqr(i) - i;
write(a[i], ' ');
end;
writeln;
K := 0;
for i := 1 to 10 do
if (a[i] > 10) and (a[i] < 70) then
k := k + 1;
Write(k);
writeln;
for i := 1 to 10 do
begin
if (a[i] < 0) then
a[i] := -1
else a[i] := 1;
write(a[i], ' ');
end;
end.
Сделать домашнее задание. Сесть за стол, достать дневник, достать тетрадь, достать учебник, решить задачи. конец.