Предмет: Информатика, автор: ямалк

Pascal.
Банковский вклад равен 2500 руб. Процентная ставка 19 процентов годовых. Через сколько лет банковский вклад станет 5000 рублей.
Требуется помощь, Учитель темы не объясняет

ямалк: Мы не разбирали еще задачи через оператор goto

Аноним: А Вы их, скорее всего. и не будете разбирать, потому что Паскаль так построен, что позволяет их не использовать НИКОГДА.

Аноним: Переходы вперед заменяются обходом блоков if-then-else, переходы назад не нужны благодаря наличию операторов цикла разных видов.

ямалк: Нам учитель дал образец на который опираться,но программа учителя не работает *-*

Аноним: var s:real; n:integer; begin s:=2500; n:=0; repeat s:=1.19*s; Inc(n) unlil s>=5000; Writeln(n) end. - это и вся программа

cerfcerfcerfcerf: Alviko Здравствуйте. Можете мне помочь с http://znanija.com/task/11191626

Аноним: Там, описка, until должно быть

Аноним: И ответ будет 4 (года).

ямалк: Ничего не поняла, не могли бы написатьв ответе полную программу?

Аноним: Это и есть полная)))

Ответы

Автор ответа: Аноним

var
s: real;
n: integer;

begin
s := 2500;
n := 0;
repeat
s := 1.19 * s;
Inc(n)
until s >= 5000;
Writeln(n+1)
end.

Тестовое решение:
5

Аноним: Подправил. Надо выводить n+1, поскольку n - последний год, в который сумма НЕ ДОСТИГНЕТ 5000

ямалк: и как тогда будет целиком?

Аноним: Так, как написано! Вы же не думаете, что тут может находиться неверный ответ!

Аноним: Если будете на этом сервисе кому-то решать задачи, когда получите статус "Главный мозг", поймете, почему если мы и делаем когда-то ошибки, то сами же их и исправляем.

ямалк: Ниче не поняла

Аноним: Вы просили программу - Вы её получили. Она работает и выдала Вам ответ. А если Вы не понимаете, как она работает, то это это совсем иное: тут не курсы по изучению программирования, тут решаются конкретные задачи даются ответы на конкретные вопросы.

ямалк: Тише. Тише