<span>var
a: array[1..1000] of </span><span>longint</span>;
i,s,n:integer;
Процедуру заполнения напишешь сам, пишу алгоритм нахождения двухзначного числа(Количество чисел это n):
for i:=1 to n do
begin
if (a[i]>9) and (a[i]<100) then
begin
s:=s+1;
end;
end;
Function power (a:real; n:longint):real;
var
i:longint;
p:real;
begin
if n=0 then power:=0
else begin
p:=a;
for i:=2 to n do p:=p*a;
power:=p
end
end;
var
a:real;
n:integer;
begin
Write('Введите основание и показатель степени: ');
Read(a,n);
Writeln('Результат: ',power(a,n))
end.
<u>Пример</u>
Введите основание и показатель степени: 13.64 6
Результат: 6440005.25769131
"Каким должен быть отрезок А" - если имеется ввиду максимальная длина А - смотрим рисунок
Если есть варианты ответа - надо смотреть по числовой прямой (на рисунке) и выбирать, который из отрезков будет находиться между 13 и 37
Решение на рисунке.
<span> Линейным называется алгоритм, в котором все этапы решения задачи выполняются строго последовательно.</span>
Var m:integer;
begin
write('m = '); readln(m);
case m of
1 : writeln('один бань');
5 : writeln('пять бань');
10: writeln('десять бань');
25: writeln('двадцать пять бань');
50: writeln('пятьдесят бань');
else writeln('недопустимое значение');
end;
end.
Пример:
m = 25
двадцать пять бань