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