Переведите из паскаля в кумир Program nomer_2;
Var a, i, n, S: integer;
Begin
Write('Vvedite n '); readln(n);
S:=0;
For i:=1 to n do
begin
read(a);
if (a mod 6 =0) then S:=S+a;
end;
Writeln(S);
End.

k = float(input())

s = float(input())

p= float(input())

i = 0

while k < s:

    i += 1

    k += (k / 100)*p

print(f'Через {i} месяцев! Вы получите сумму {k}')

Объяснение:

Вводим нужные числа.

И так, i = это у нас месяцы, которая по умолчанию равна 0.

while у нас заместо времени, каждая итерация while прибавляет к месяцам 1.

И так - каждый месяц мы увеличиваем наш капитал на p.

k += (k/100)*p - считаем проценты.

Насчёт += - это тоже самое, что написать k = k + (k/100) * p.

Условие цикла, цикл будет работать, пока наш капитал меньше нужной суммы.

Как только капитал становиться больше нужной суммы - while прекращает свою работу. И мы получаем через сколько месяцев наберём нужный капитал.

*f - format

Нель­зя ис­поль­зо­вать ко­до­вые слова, ко­то­рые на­чи­на­ют­ся с 0 или с 10. 11 также не можем ис­поль­зо­вать, по­сколь­ку тогда мы боль­ше не смо­жем взять ни­ка­кое дру­гое ко­до­вое слово, а нам их нужно пять. По­это­му берём трёхзнач­ное 110. По Условию Фано, если есть a, то ab существовать не может. Другими словами, мы не можем использовать начало с 0, а если возьмем 11, то начинать другие числа не сможем. Поэтому остается брать числа 110,1110,1111(последний берем без 0, т.к. он последний и других чисел уже не нужно, но если бы и было нужно, то стоит взять число 11110 не нарушая условия Фано)