Системы счисления
1) Перевести число из двоичной системы в системы с основанием 8, 10, 16. 100011002
2) Перевести число из восьмеричной системы в системы с основанием 2, 10, 16. 2058
3) Перевести число из десятичной системы в системы с основанием 2, 8, 16. 155
4)Перевести число из шестнадцатеричной системы в системы с основанием 2, 8, 10. 8916
5)Сложить двоичные числа. 100101102+ 110010112
6) Сложить восьмеричные числа. 62718+ 70248
7) Сложить шестнадцатеричные числа. B0616+ C6416
8) Вычесть двоичные числа. 10110102- 111110012
9) Вычесть восьмеричные числа. 15218- 70418
10) Вычесть шестнадцатеричные числа. 11) 40116- E1A16
121 имеет 3 разряда, значит основание однозначно меньше 10 и больше 2. Подходят 3, 4, 6, 8.
Учитывая, что в числе 121 три разряда, значит число 48 делилось всего три раза.
Число 8 не подойдет, т.к. 48/8=6, значит будет всего два деления.
Число 3 не подойдет, т.к. 48/3 = 16, 16/3=5 - то есть тут будет больше трёх знаков.
Число 4 не подойдет, т.к. 48/4=12, а 12 делится на 4 без остатка, но, судя по числу, во втором делении остаток должен быть равен 2.
Остаётся число 6. Проверим
49/6=8 |1
8/6 = 1 |2
1/6=0 |1
121(6)
FOR i = 1 TO 100
percents = FIX(x * p / 100) ' здесь у нас есть переменная percents, которой присваиваются округленные функцией fix проценты (насколько я знаю, в паскале аналогичная функция называется Round)
x = x + percents 'тут всё понятно - переменной X присваивается она сама и годовые проценты по вкладу
IF x >= y THEN 'проверяем, не равен или не превысил ли наш вклад ожидаемую сумму
PRINT i 'в цикле For можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет
END 'завершаем программу
END IF
NEXT i ' конец цикла
Можно ещё чисто для себя добавить в условие вывод переменной X, чтобы было нагляднее.