Program fermer;
uses crt;
var
S: real; {отпускная цена}
S2,S3: real; {изменяемая цена}
P: real; {процент}
N: integer;
begin
writeln('Введите отпускную цену: ');
readln(S);
writeln('Введите процент: ');
readln(P);
N:=0;
S3 := S;
repeat
S2:=S3*(1 + P/100); {повышение цены зимой}
S3:=S2*(1 - P/100); {понижение цены летом}
N:=N+1;
until (S3=S); {проверка условия}
writeln('Цена на молоко', S3, 'через', N, 'лет');
readln;
end.
Сообщение отредактировано: rs-mms -