Маша и медведь отправились на прогулку, взяв с собой - вопрос №9715077 от samirdebilGost 08.12.2021 11:45

Question

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

samirdebilGost · Answer

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