Question

Артур всегда очень боялся знакомиться с девушками. Дело даже не в природной стеснительности Артура, и даже не столько в том, что Артур не знает, о чем говорить с девушками. Просто Артур с детства не выговаривает букву «р» и очень этого стесняется. Поэтому Артур старается не произносить лишний раз слова, в которых есть эта ненавистная ему буква.Однажды друзья познакомили Артура с девушкой по имени Нина (о, какое прекрасное имя!). Она была очаровательна и очень болтлива, поэтому Артуру почти не нужно было подбирать слова — она заполняла неловкую тишину за него. Разумеется, он пригласил ее в кафе выпить чашечку кофе. Артур даже продумал все свои реплики заранее: «Счастлив тебя видеть», «Ты сегодня восхитительна», «Да, конечно, я внимательно тебя слушаю», «И что дальше?», «Счет, пожалуйста» и, конечно, «Я позвоню тебе на днях, не скучай».Но, как известно, не бывает идеальных планов. Все шло как по маслу, но вдруг, сидя за столиком в кафе, Нина сказала, что ужасно не выспалась и не отказалась бы от N чашек кофе. И тут Артур понял, что он не обдумал заранее, как он будет делать заказ. Понятно, что нужно сказать что-то вроде: «Сколько-то чашек кофе, пожалуйста», но вот сколько же чашек нужно, чтобы Нина так и не поняла, что Артур не выговаривает букву «р»? Явно нужно заказать не меньше, чем N + 1 чашку — чтобы и Нине досталось N чашек, и самому выпить, но вот сколько точно — Артур не знает. Денег у него не слишком много, поэтому заказывать больше, чем жизненно необходимо для того, чтобы избежать разоблачения, Артур не хочет.Помогите Артуру — посчитайте, сколько чашек кофе он должен заказать.ВХОДНЫЕ ДАННЫЕВводится одно целое число N (1 ≤ N ≤ 2999).ВЫХОДНЫЕ ДАННЫЕВыведите одно число — количество чашек кофе, которое должен заказать Артур.ВХОДНЫЕ ДАННЫЕ1ВЫХОДНЫЕ ДАННЫЕ2ВХОДНЫЕ ДАННЫЕ12ВЫХОДНЫЕ ДАННЫЕ15

Answer 1

TL;DR

var
  i: integer;
  s: string;
  flag: boolean;
begin
  readln(i);
  flag := true;
  while (flag) do
  begin
    inc(i);
    str(i, s);
    if (pos('3', s) + pos('4', s) = 0) then
      flag := false;
  end;
  writeln(i);
end.