1.
а)огурец.
б) москвич.
в) тракторист.
г)школьники.
2.
а)герои из сказки Буратино.
б)сказки.
в)большие города.
г)большие реки.
д)города России.
3.
а) Джеймс Кук.
б)корень.
в)P=2(a+b)
г)Илья Муромец и Соловей разбойник.
4.
1)птица летит по воздуху. Птица сидит в гнезде.
2)мяч катится в ворота. Мяч лежит на поле.
3)велосипед едет по дороге. Велосипед стоит около магазина.
Const
R=14;
var
i,k:integer;
W:array[1..R] of longint;
begin
Write('Введите число членов последовательности (1-',R,'): ');
Readln(k);
if (k<1) or (k>R) then Writeln('Вы ввели неверное значение')
else begin
Write('Члены последовательности: 1');
w[1]:=1;
for i:=2 to k do
begin
w[i]:=5*w[i-1];
Write(', ',w[i])
end;
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Введите число членов последовательности (1-14): 14
Члены последовательности: 1, 5, 25, 125, 625, 3125, 15625, 78125, 390625, 1953125, 9765625, 48828125, 244140625, 1220703125
Const
U=1000;
type:
Mas= array [1..U] of integer;
var
a: Mas;
i,j,k,n: integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
begin
if a[i]=a[j] then k:=k+1;
end;
write(k,' ');
end;
readln;
readln
end.
Если понравилось поставь лучшее решение!
Спасибо!
Програмку написал на случай, если прибыль за год будет добавляться ко вкладу каждый год для увеличения самого вклада.