Question

Маша и Медведь отправились на прогулку, взяв с собой много пирожков. Через некоторое время они вышли на просеку, вдоль которой стояло 2020 пеньков. Поскольку Маша и Мишка очень устали, то решили перекусывать на каждом пеньке. Но потом Маша решила, что каждый третий пенек ей не нравится, на нем они сидеть не будут, а Мишка решил, что каждый пятый пенек ему не нравится и на нем они точно сидеть не будут. Они не отдыхают на пеньке, если кому-то он не нравится. Определите, на каком количестве пеньков они отдыхали?

Answer 1

begin

var sum :integer := 2020;

var i :integer := 0;

var counter : integer :=0;

while (i <> sum) do

begin

if (i mod 3 <> 0) and (i mod 5 <> 0) then

counter += 1;

i+=1;

end;

writeln (counter);

end.

//Ответ 1077