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.
так чтоли?
<html>
<head>
<title>Анкета</Title>
</head>
<body>
<h1>Анкета</h1>
<form>
Какой браузер вы используете?
<select name="browser">
<option selected> Internet Explorer
<option> Opera
<option> Mozila
</select>
<br/>
Ваша электронная почта <input type="text" name="email" />
<br/>
Ваше имя <input type="text" name="name" />
<br/>
</form>
<a href="mailto:[email protected]">mailto:[email protected]</a>
</body>
</html>