1) uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
end;
writeln('Число ',a,' в степени ',n,' равно ',s);
end.
2)uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
writeln(a,' в степени ',i,' равно ',s);
end;
end.
3)uses crt;
var a,s,p:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
p:=1;
write('1 + ');
for i:=1 to n do begin
s:=s*a;
p:=p+s;
if i<n then write(s,' + ');
if i=n then write(s,' = ');
end;
writeln(p);
end.
var x1,y1,x2,y2,x3,y3,x4,y4:integer;
N1,N2:real;
begin
writeln('Введите координаты первой точки - ');
readln(x1,y1);
writeln('Введите координаты второй точки - ');
readln(x2,y2);
writeln('Введите координаты третьей точки - ');
readln(x3,y3);
writeln('Введите координаты четвертой точки - ');
readln(x3,y3);
n1:= sqrt( (x3-x1) * (x3-x1) + (y3 - y1) * (y3-y1) );
n2:= sqrt( (x4-x2) * (x4-x2) + (y4 - y2) * (y4-y2) );
writeln('Длина первой диагонали - ',n1);
writeln('Длина второй диагонали - ',n2);
readln;
end.
Держи.