Среди N случайных чисел в диапазоне от -1 до 10 определите количество чисел, делящих??я на 3. паскаль срочно

?я на 3. паскаль срочно

Ответы:

Ксюша Зубакина

15-01-2018 09:16

Var a,s,n,i:integer;begin s:=0; readln(n); for i:=1 to n do begin read(a); if((a mod 3)=0) then s:=s+1; end; writeln(s);end.

Также наши пользователи интересуются:

Ученик учил уроки. У него в чернилах щёки. Словарное слово?Дан равнобедреный треугольник ABC его P=77 см одна из сторон на 17 см больше другой, На?

Картинка с текстом вопроса от пользователя ОКСАНА ГОРОБЧЕНКО

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Среди N случайных чисел в диапазоне от -1 до 10 определите количество чисел, делящих?» от пользователя ОКСАНА ГОРОБЧЕНКО в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!