1)2002)б3)г15 4))а 40 5)б папки6)а вид7)а город8)город Москва9)
Var n,a,b,c,d,i:integer;
begin
readln(n);
a:=1; b:=1; c:=1;
write(a:2,b:2,c:2);
for i:=4 to n do
begin
d:=a+b+c;
a:=b;
b:=c;
c:=d;
write(' ',d);
end;
end.
Пример:
15
<span> 1 1 1 3 5 9 17 31 57 105 193 355 653 1201 2209</span>
const
n = 30;
var
a: array [1..n] of integer;
i, mini: integer;
begin
for i := 1 to n do
begin
a[i] := random(30);
write(a[i], ' ');
end;
writeln;
mini := 1;
for i := 1 to n do
if a[i] < a[mini] then
mini := i;
writeln('A[', mini, ']=', a[mini]);
end.
Начало
ввод числа
последняя цифра числа 0?
да нет ->Нельзя
Можно
Конец
A = list()
k = 0
for i in range(5):
A.append([])
for j in range(5):
A[i].append(k)
k+=1
for i in range(5):
for j in range(5):
print(A[i][j], end = " ")
print()
print("Последняя удаленная строка: ", A.pop())
for i in range(len(A)):
for j in range(len(A[i])):a
print(A[i][j], end = " ")
print()