Спрогой. вклад составляет x рублей. ежегодно он увеличивается на p процентов, после чего дробная часть копеек отбрасывается. каждый год сумма вклада становится больше. определите, через сколько лет вклад составит не менее y рублей. входные данные программа получает на вход три натуральных числа: x, p, y. выходные данные программа должна вывести одно целое число. написал: program u1; var x,p,y,year: longint; s: real; begin readln (x); readln (p); readln (y); s: =x; year: =0; while s begin while s s: = s+(1+p/100); year: =year+1; end; writeln (year); end. не выводит ответ. найти ошибку. я новичок.

Не особо знаю паскаль, так что дабы не накосячить с синтаксисом, покажу на примере. тут всё просто - тебе лишь нужен цикл 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, чтобы было нагляднее.   

ответ: -81,512,-74,87,101

Объяснение: