Программирование на паскале.
10-11 класс
|
Найти среднее арифметическое положительных чётных чисел натурального ряда до N.
(Использование цикличного оператора for)
uses crt;
var s:real; n,i,k:integer;
Begin
clrscr;
Write('n='); readln(n);
s:=0;
k:=0;
for i:=1 to n do
if i mod 2=0 then begin
s:=s+i;
k:=k+1;
end;
s:=s/k;
writeln('srednee=',s);
writeln;
End.
Другие вопросы из категории
Загадайте натуральное чётное число Прибавьте к нему 4 Уменьшите на 6 Поделите на 2 Что у вас получилось? 3 Вы загадали число 8!!!
1.1 – 1.2 + 1.3 – …
(N слагаемых, знаки чередуются). Условный оператор не использовать.
ЧЕРЕЗ БЭЙСИК ЖЕЛАТЕЛЬНО
Читайте также
всех чисел, расположенных после первого нулевого элемента.
Написать на Паскале буду очень благодарен!!
Сформируйте два одномерных массива. В один перешлите четные, а в другой
-нечетные элементы матрицы. Выведите на экран все массивы.
-нечетные элементы матрицы. Выведите на экран все массивы.
ИЛИ
Ввести с пульта оператора в массив А(10) любые целочисленные числа.Программно записать в обратном порядке.Результат вывести на экран
Ввести с пульта оператора в массив А(10) любые целочисленные числа.Программно записать в обратном порядке.Результат вывести на экран