Не особо знаю паскаль, так что дабы не накосячить с синтаксисом, покажу на примере. Тут всё просто - тебе лишь нужен цикл 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, чтобы было нагляднее.
Const n = 5; var i: integer; a: array[1..n * 2 + 1] of integer; begin writeln('исходный массив: '); for i : = 1 to 2 * n do begin a[i] : = random(99) + 1; write(a[i] : 5); end; for i : = 2 * n + 1 downto n + 1 do a[i] : = a[i - 1]; a[n + 1] : = 0; writeln(); writeln('полученный массив: '); for i : = 1 to 2 * n + 1 do write(a[i] : 5); end.
// Внимание! Если программа не работает, обновите версию!
begin
var (x,y):=ReadReal2('Введите x и y через пробел:');
Writeln(x**y)
end.
Примеры
Введите x и y через пробел: 2 20
1048576
Введите x и y через пробел: -2 20
1048576
Введите x и y через пробел: -2 19
-524288
Введите x и y через пробел: -0.7 19
-0.00113988951853731
Введите x и y через пробел: 3 -5
0.00411522633744856
Введите x и y через пробел: -3.5 -2.4
NaN
В последнем примере NaN - "Not a Number" (не число).