Маша и медведь отправились на прогулку, взяв с собой много пирожков. через некоторое время они вышли на просеку, вдоль которой стояло 2020 пеньков. поскольку маша и мишка устали, то решили перекусывать на каждом пеньке. но потом маша решила, что каждый третий пенек ей не нравится, на нем они сидеть не будут, а мишка решил, что каждый пятый пенек ему не нравится и на нем они точно сидеть не будут. они не отдыхают на пеньке, если кому-то он не нравится. определите, на каком количестве пеньков они отдыхали?
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