Артур всегда боялся знакомиться с девушками. дело даже не в природной стеснительности артура, и даже не столько в том, что артур не знает, о чем говорить с девушками. просто артур с детства не выговаривает букву «р» и этого стесняется. поэтому артур старается не произносить лишний раз слова, в которых есть эта ненавистная ему буква.однажды друзья познакомили артура с девушкой по имени нина (о, какое прекрасное она была очаровательна и болтлива, поэтому артуру почти не нужно было подбирать слова — она заполняла неловкую тишину за него. разумеется, он пригласил ее в кафе выпить чашечку кофе. артур даже продумал все свои реплики заранее: «счастлив тебя видеть», «ты сегодня восхитительна», «да, конечно, я внимательно тебя слушаю», «и что дальше? », «счет, » и, конечно, «я позвоню тебе на днях, не скучай».но, как известно, не бывает идеальных планов. все шло как по маслу, но вдруг, сидя за столиком в кафе, нина сказала, что ужасно не выспалась и не отказалась бы от n чашек кофе. и тут артур понял, что он не обдумал заранее, как он будет делать заказ. понятно, что нужно сказать что-то вроде: «сколько-то чашек кофе, », но вот сколько же чашек нужно, чтобы нина так и не поняла, что артур не выговаривает букву «р»? явно нужно заказать не меньше, чем n + 1 чашку — чтобы и нине досталось n чашек, и самому выпить, но вот сколько точно — артур не знает. денег у него не слишком много, поэтому заказывать больше, чем жизненно необходимо для того, чтобы избежать разоблачения, артур не хочет. артуру — посчитайте, сколько чашек кофе он должен заказать. входные данные вводится одно целое число n (1 ≤ n ≤ 2999). выходные данные выведите одно число — количество чашек кофе, которое должен заказать артур. входные данные 1 выходные данные 2 входные данные 12 выходные данные 15

seryakovart seryakovart    2   09.06.2019 10:00    6

Ответы
макс10710 макс10710  08.07.2020 07:58
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика