66

Найти среднее арифметическое чисел которое делятся на 3 без остатка…

petrovich 02 марта 2023

Найти среднее арифметическое чисел которое делятся на 3 без остатка от 100 до 1

категория: информатика

87

Program gt; var i,s,k: integer; begins: =0; k: =0; for i: =1 to 100 dobeginif (i mod 3=0) then begink: =k+1; s: =s+i; end; end; writeln (s/k); end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...