Microsoft Access. Здарова бАКЛАНЫ вРЕМЯ ПОДЖИМАЕТ БЫСТРЕЕ

ошибка в том что натуральный логарифм (-1) не существует

program summa; uses crt; var n,i: integer; s: real;

p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0;

p1: =-1;

p2: =2; for i: =1 to n do

begins: =s+p1/p2;

p1: =-p1;

p2: =p2*2;

end; writeln ('s=', s); readln; end.

program distance; var x1, y1, x2, y2, d: real; begin writeln('введите координаты первой точки'); readln(x1, y1); writeln('введите координаты второй точки'); readln(x2, y2); d : = sqrt(sqr(x2 - x1) + sqr(y2 - y1)); writeln('расстояние между точками = ', d: 2: 2); readln; end.

для того, щоб зробити фоновий колір, то потрібно вибрати необхідний колір і вибрати заливку.

для основного кольору необхідно вибрати колір і малювати пензликом або олівцем.

для намалювання прямокутника необхідно на панелі вибрати фігуру прямокутника і намалювати.

і відповідно так малюємо квадрат, овал, круг.

универсальное

var i,n,x,y: integer;

begin

  read(x,n);

  for i : = 1 to n do

      y: = y*x;

  writeln(y);

end.

частные

y=x*x | x^2

y=y*y | x^4

y=y*y | x^8

a=x*x

y=a*a

y=y*y

y=y*a = x^10

y=x*x

y=y*y

y=y*y

y=y*y = x^16

y=y/x = x^15