Var c:array[1..17] of integer; i,k:integer; begin for i:=1 to 17 do read(c[i]); k:=0; for i:=1 to 17 do if c[i] mod 11 = 0 then k:=k+1; writeln('Количество элементов кратных 11 = ', k); end.
Действительно, без воды никуда. Вода нужна не только для питья, она нужна для всего. Без воды мы не можем приготовить обед, постирать, помыться и т.д. Вода – это важный источник человеческого существования. Если вдруг на Земле не останется чистой воды, все живое погибнет.
Мировые запасы питьевой воды могут истощиться из-за нерационального водопользования или загрязнения. К 2050 году 30% населения Земли могут столкнуться с нехваткой питьевой воды. Уже есть страны, которые завозят чистую воду из соседних государств. В засушливых районах воды не хватает, как и хлеба. Люди носят ее в тыквенных сосудах, бутылях за многие километры от дома. Около 80 % заболеваний в этих районах связанно с плохой водой. Такую воду пить нельзя. Через воду могут передаваться многие опасные для человека болезни: холера, брюшной тиф, дизентерия, желтуха, гельминтоз и др.
Действительно, без воды никуда. Вода нужна не только для питья, она нужна для всего. Без воды мы не можем приготовить обед, постирать, помыться и т.д. Вода – это важный источник человеческого существования. Если вдруг на Земле не останется чистой воды, все живое погибнет.
Мировые запасы питьевой воды могут истощиться из-за нерационального водопользования или загрязнения. К 2050 году 30% населения Земли могут столкнуться с нехваткой питьевой воды. Уже есть страны, которые завозят чистую воду из соседних государств. В засушливых районах воды не хватает, как и хлеба. Люди носят ее в тыквенных сосудах, бутылях за многие километры от дома. Около 80 % заболеваний в этих районах связанно с плохой водой. Такую воду пить нельзя. Через воду могут передаваться многие опасные для человека болезни: холера, брюшной тиф, дизентерия, желтуха, гельминтоз и др.
i,k:integer;
begin
for i:=1 to 17 do read(c[i]);
k:=0;
for i:=1 to 17 do
if c[i] mod 11 = 0 then k:=k+1;
writeln('Количество элементов кратных 11 = ', k);
end.