Не особо знаю паскаль, так что дабы не накосячить с синтаксисом, покажу на примере. Тут всё просто - тебе лишь нужен цикл For и расчет процентов.
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, чтобы было нагляднее.
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, чтобы было нагляднее.
восьмеричная - 162.16320047244
шестнадцатеричная - 72.39A02752546
b) 316.8125
668.625
691.953125
c) 615.75 (10) + 269.625 (10) =1101110101.011 (2)
186.4375 (10) + 887.25 (10) =2061.54 (8)
101.125 (10) + 970.4375 (10) = 42F.9 (16)
d) 950.1875(10)-254.25(10)=1010110111.1111(2)
752.1875 (10) - 654.5 (10) = 141.54 (8)
51.375 (10) - 17.25 (10) = 22.2 (16)
e) 7.625(10)*5(10)=100110.001 (2)
84.375(10)*31(10)=5067.5(8)
420(10)*243(10)=18EAC(16)
6. Очевидно, что система позиционная.
Тогда 1 стоит на 2-ой позиции (начиная с нулевой) .
Тогда 49 = x^2
ответ - X = 7