Каждый год урожайность повышается на 5%. Через сколько - вопрос №5680936 от prostoliii 12.01.2021 10:22

Question

Другие предметы: Каждый год урожайность повышается на 5%. Через сколько лет урожай удвоится? (программа Паскаль)

prostoliii · Answer

USES Crt;
VAR
YR, KL: BYTE; YRG: REAL;
Begin
ClrScr;
Write('Введите урожайность '); ReadLn(YR);
YRG:=YR;
While (YRG <2*YR) Do Begin
YRG:=YRG+0.05*YRG;
KL:=KL+1;
End;
WriteLn('Новый урожай ',YRG:5:0);
Write('Через ',KL,' лет урожай удвоится');
END.