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.
а)
задаем любому брату вопрос является ли сидящий рядом с ним человек его братом
если он ответил "да", то мы спросили брата говорящего правду
значит ему можно доверять и если спросив про дорогу он скажет, что она ведет к озеру, то нужно идти по ней, если кажет что не ведет, то выбираем другую дорогу
если в начле брат ответил "нет", то мы спросили брата говорящего неправду
значит его ответы следует интерпретированить наоборот и если спросив про дорогу он скажет, что она ведет к озеру, то нужно выбрать другую дорогу, если кажет что не ведет, то нужно идти по ней
б)
задаем любому брату вопрос является ли сидящий рядом с ним человек его братом
если он ответил "да", то мы спросили брата говорящего правду
значит брат, которому будет задан следующий вопрос врун
поэтому его ответы следует интерпретированить наоборот и если спросив про дорогу он скажет, что она ведет к озеру, то нужно выбрать другую дорогу, если кажет что не ведет, то нужно идти по ней
если брат ответил "нет", то мы спросили брата говорящего неправду
значит брат, которому будет задан следующий вопрос говорит правду
поэтому ему можно доверять и если спросив про дорогу он скажет, что она ведет к озеру, то нужно идти по ней, если кажет что не ведет, то выбираем другую дорогу
