![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
rs-mms |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 11 Пол: Женский Репутация: ![]() ![]() ![]() |
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 - 14.05.2009 10:00 |
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
|||
Гость ![]() |
P.S. Еще бы узнать, что делает эта программа (в смысле, что должна делать...) |
|||
![]() ![]() |
![]() |
Текстовая версия | 23.07.2025 3:24 |