Во free pascal?
Если хоче порисовать то скачай Basic
1.
n = int(input())
if n == 0:
print(0)
else:
a, b = 0, 1
for i in range(2, n + 1):
a, b = b, a + b
print(b)
2.
d = []
k = []
for i in range(10):
d.append(int(input()))
for i in range(len(d)):
if d[i] % 2 == 0:
if d[i] % 3 != 0:
k.append(d[i])
print(min(k))
Using System;
static int Main()
{<span> int n = 1;</span>
<span> for (int i = 1; i <= 5; i++)
</span><span> {
</span><span> for (int z = 1; z <= i; z++)</span><span>
{</span><span>
Console.Write(n);
</span><span>Console.Write("\t");
</span><span>}
</span><span>n++;
</span><span>Console.Write("\n");
</span><span>}</span>return 0;
<span>}</span>
Я думаю, не уверен, что это А
Поскольку 17 простое нечетное число его обнулили, и 17 не делится ни на что кроме себя и 1