Зарплата бюджетникам

sanya_kst

Дата: Суббота, 15.11.2008, 02:21 | Сообщение # 1

Новичок

Группа: Пользователи

Сообщений: 9

Репутация: 0

Замечания: 0%

Статус: Offline

Входной файл money.in
Выходной файл money.out

Сама задача:
Руководство страны приняло решение ежегодно поднимать зарплату бюджетникам на X%. Если сейчас рабочий получает К $ в месяц, то через сколько лет его зарплата превысит значение S?

Входные данные: K, X, S, разделенные пробелами.

Выходные данные: Число лет, которое пройдет, прежде чем зарплата превысит S.

Прример
money.in
20000 25 31000

money.out
2

Alexander

Дата: Суббота, 15.11.2008, 06:21 | Сообщение # 2

Всевышний

Группа: Модераторы

Сообщений: 475

Репутация: 16

Замечания: 0%

Статус: Offline

Через ln(S)/ln(k*(1+x/100)) лет.

Скажем дружно- нафиг нужно!

snaper1993

Дата: Суббота, 15.11.2008, 06:21 | Сообщение # 3

Бывалый

Группа: Пользователи

Сообщений: 121

Репутация: 2

Замечания: 0%

Статус: Offline

Вот код к задаче:

Code

var k,x,s,r:real;
f,f1:text;
begin
assign(f,'money.in'); reset(f);
assign(f1,'money.out'); rewrite(f1);
readln(f,k,x,s);
r:=0;
while k<=s do
begin
k:=k+((k*x)/100);
r:=r+1;
end;
writeln(f1,r:0:0);
close(f);
close(f1);
end.

Я - желанный гость Сайта взаимопомощи программистам Pascal А ты?

sanya_kst

Дата: Суббота, 15.11.2008, 18:32 | Сообщение # 4

Новичок

Группа: Пользователи

Сообщений: 9

Репутация: 0

Замечания: 0%

Статус: Offline

Спасибо большое, очень помогли. respect

		Пятница, 24.01.2025
	Pascal 4 All