решите пж срочнооооо
10-11 класс
|
var n,s,i,x: integer;
begin
write('n='); readln(n);
for i := 1 to n do begin
readln(x);
if x mod 3 = 0 then s := s + 1;
end;
writeln('кратных 3: ', s);
end.
Другие вопросы из категории
металлический, картонный). Найдите: количество кубиков каждого из перечисленных цветов и их суммарный объём;
клеточки. Какое минимальное количество бит потребуется для кодирования
координат одного поля такой доски?
c полным решением,пожалуйста
Читайте также
найти номер третьего положительного элемента в потоке из 10 чисел или сообщить,что трех положительных элементов нет. (Решать без массива)
Это информатика, 10 класс
Вопросы на фотографии
Номера 5 и 6 не надо решать
которых алгоритм печатает сначала 3 ,а потом 7 , решите пжл ,полностью
нь очень надо! Я не поняла суть задания.. переноса , скорее всего, в другую строку.. Как понимаете , решите , пожааалуйста !!!!! :)))))))))
больше задач: мальчики или девочки ,если один мальчик решил больше всех ,а другой меньше всех ?