Каждый год животновод в начале зимы повышает отпускную цену на молоко на р%, а каждое лето понижает на такое же количество процентов. Изменится ли цена на молоко, если да, то в какую сторону и через сколько N лет?
Code
program_1;
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.
Добавлено (16.05.2009, 18:11)
---------------------------------------------
Ну помогите кто-нибудь пожалуйста! Вся контрольная пропадает из-за этой одной неправильной строчки в коде, сдать в понедельник нужно!
Добавлено (16.05.2009, 18:11)
---------------------------------------------
Ну помогите кто-нибудь пожалуйста! Вся контрольная пропадает из-за этой одной неправильной строчки в коде, сдать в понедельник нужно!
Добавлено (16.05.2009, 18:12)
---------------------------------------------
Ну помогите кто-нибудь пожалуйста! Вся контрольная пропадает из-за этой одной неправильной строчки в коде, сдать в понедельник нужно!
