найти среднее арифметическое чисел которое делятся на 3 без остатка от 100 до 1
10-11 класс
|
program gt;
var i,s,k:integer;
begin
s:=0;
k:=0;
for i:=1 to 100 do
begin
if(i mod 3=0)then begin
k:=k+1;
s:=s+i;
end;
end;
writeln(s/k);
end.
Другие вопросы из категории
значение будет принимать переменная Х, после выполнения фрагмента программы:
f:=10; d:=10;
If
f>=d then x:=f else
x:=d
Напишите программу, в результате которой робот закрашивает клетки через одну по периметру поля.
Читайте также
числа n.
№3
Вычислить значение факториала n!
№4
В диапазоне от 1 до n вывести все четные числа на экран.
№5
Найти количество чисел, которые делятся на 3 и 5, из диапазона от 1 до n.
Форма входа данных : в первой и единственной строке дано число N (1= Формат выходных данных: Выведите наименьшее число K факториал которого делится на N.
Примеры A.in = 4 A.out = 4 A.in = 8 A.out = 4
Форма входа данных : в первой и единственной строке дано число N (1= Формат выходных данных: Выведите наименьшее число K факториал которого делится на N.
Примеры A.in = 4 A.out = 4 A.in = 8 A.out = 4
Форма входа данных : в первой и единственной строке дано число N (1= Формат выходных данных: Выведите наименьшее число K факториал которого делится на N.
Примеры A.in = 4 A.out = 4 A.in = 8 A.out = 4