Каждый год урожайность повышается на 5%. Через - вопрос №6816135 от nabisat2017 31.07.2022 09:25

Question

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

nabisat2017 · 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.