Вывести все числа от 1 до 1000, которые: -- кратны 3 и 5

Var a: integer; begin for a: =1000 downto 1 do begin if (a mod 5 = 0) and (a mod 3 = 0) then writeln(a); end; end.

Поочередно удаляем повторяющиеся буквы лггемурмзххзмрмччъффъмр лемурмззмрмъъмр лемурммрммр лемур лемур # код на ruby 2.2.3p173 def zadanie(s)       puts "поочередно удаляем повторяющиеся буквы" + "\n"       puts s  + "\n"       s1 = s       begin             s = s1             s1 = s.gsub(//, "")             puts s1 + "\n"       end while s1 ! = s       return s end

Если никакие две карточки не были открыты дважды, то все попытки мистера форда были неудачными, он вытаскивал разные ненужные карточки; все ходы мистера фокса, кроме последнего, тоже были неудачными, а на последнем ходу он открыл все 5 нужных карточек. всего неудачных ходов могло быть не больше 30 - 5 = 25 - это число неподходящих карточек. мистер фокс и мистер форд сделали одинаковое число неудачных ходов, значит, вместе они сделали не больше 24 неудачных ходов, а с учетом последнего, удачного, хода мистера фокса, ходов могло быть не более 25. ответ: 25.