Решение показано в прилагаемом файле.
В столбец A и в строку 2 нужно занести длины сторон от 1 до 10.
Значения периметра в остальных ячейках (начиная с B3) вычисляются по формуле вида: =2*($A3+B$2)
Формула записывается один раз, после чего её нужно скопировать (протяжкой) на все остальные ячейки диапазона B3:K12
Для вычисления площади все действия аналогичны. Формула: =$A3*B$2
Папирус, стена, камень, пещера, янтарь
<em><u>Pascal:</u></em>
var a:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
write ('A[',i,'] = ');
readln (a[i]);
end;
end.
<u><em>C++:</em></u>
#include <iostream>
using namespace std;
int main()
{
int a[10];
for (int i = 0; i<10; i++)
{
cout <<"A[" <<i <<"] = ";
cin >>a[i];
}
return 0;
}
1. n=10; i=3;
2. 3<=10 - да а=3*2+3=9; i=3+1=4;
3. 4<=10 - да а=4*2+3=11; i=4+1=5;
4. 5<=10 - да а=5*2+3=13; i=5+1=6;
5. 6<=10 - да а=6*2+3=15; i=6+1=7;
6. 7<=10 - да а=7*2+3=17; i=7+1=8;
7. 8<=10 - да а=8*2+3=19; i=8+1=9;
8. 9<=10 - да а=9*2+3=21; i=9+1=10;
9. 10<=10 - да а=10*2+3=23; i=10+1=11;
10. 11<=10 - нет;
Ответ: 23
<span>function Power(x,y:real):real;
{ (C) Puporev }
begin
if x=0 then
Power:=0
else
if x>0 then
Power:=exp(ln(x)*y)
else
Power:=-exp(ln(abs(x))*y);
end;
var
x,y:real;
begin
readln(x,y);
writeln(power(x,y));
end<span>.</span></span>