Program deposit; var p,s: real; n:integer; begin p:=0;//величина прибавки s:=1000;//первоначальная сумма n:=0;//число месяцев while p<=30 do //пока прибавка меньше 30 руб. begin p:=s*0.02; //величина месячной прибавки сумма плюс прибавка за текущий месяц n:=n+1;//число месяцев end; writeln('Ежемесячное увеличение вклада превысит 30 руб через ',n, ' месяцев'); n:=0; //обнуление счетчика месяцев s:=1000;//восстановление значения первоначального взноса while s<=1200 do begin p:=s*0.02;//Величина месячной прибавки сумма плюс прибавка за текущий месяц n:=n+1;//число месяцев end; writeln('Величина вклада превысит 1200 руб через ',n,' месяцев'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку