УМК ШКОЛА
МО ГУМАНИТАРИЕВ
МО МАТЕМАТИКОВ
МО КЛ. РУКОВОДИТЕЛЕЙ
МО НАЧАЛЬНЫХ КЛ.
ГОТОВИМСЯ К УРОКУ
КРУЖКИ, ТВОРЧЕСТВО
ФАКУЛЬТАТИВ
ГРАФИКИ, ПЛАНЫ
ПСИХОЛОГУ
ДОКЛАДЫ, ДИССЕРТ.
ЦЕНТР ПОМОЩИ ДЕТЯМ
ДЕТСКИЙ САД
АТТЕСТАЦИЯ ДОКУМ.
АТТЕСТАЦИЯ - ТЕСТЫ
ВПР, КДР
ОГЭ ЗАДАНИЯ
ЕГЭ ЗАДАНИЯ

ОГЭ 9 класс
Математика
Русский язык
Информатика
Георгафия
Биология


ЕГЭ 11 класс
Математика
Русский язык
Информатика
Физика
Обществознание
Биология


Напишите программу для решения следующей задачи...проводилось наблюдение N (1 ≤ N ≤ 31)
ОГЭ ЕГЭ - РЕШЕНИЯ ЗАДАНИЙ > ** Программирование и алгоритмизация > Напишите программу для решения следующей задачи...проводилось наблюдение N (1 ≤ N ≤ 31)
 

Страницы: 1 2 3 4 5

Задания - решение
№ 17 Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, оканчивающихся на единицу, или сообщает, что таких чисел нет. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода).
Количество чисел не превышает 100. Введённые числа по модулю не превышают 300.
Программа должна вывести среднее арифметическое чисел, оканчивающихся на единицу, или вывести NO, если таких чисел в последовательности нет.

Пример работы программы:

Входные данные Выходные данные
21 16.0
30
11
0
16 NO
5
0


РЕШЕНИЕ:

Пример программы на языке Паскаль:
х - массив чисел
у - количество символов в массиве чисел
z - количество чисел, оканчивающихся на единицу
S – среднее арифметическое чисел, оканчивающихся на единицу

var
х: array [1..100] of integer;
S,y: integer;
begin
S:= 0;
y:= 0;
write('Сколько чисел в массиве (не более 100 ');
readln (y);

write('Введите целые числа не превышают 300 (0 – признак окончания ввода, не входит в последовательность ');
for i:=1 to у do
begin
readln (х[i]);
if (x[i] mod 10 = 1) then begin S := S + x[i]; z:=z+1; end;
if (x[i] = 0) then i:=y;
end;
S: = S/z;
if y>0 then writeln(S) else writeln('NO');
end.
№ 18 Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, оканчивающихся на единицу, или сообщает, что таких чисел нет. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода).
Количество чисел не превышает 100. Введённые числа по модулю не превышают 300.
Программа должна вывести среднее арифметическое чисел, оканчивающихся на единицу, или вывести NO, если таких чисел в последовательности нет.

Пример работы программы:

Входные данные Выходные данные
21 16.0
30
11
0
16 NO
5
0


РЕШЕНИЕ:

Пример программы на языке Паскаль:
х - массив чисел
у - количество символов в массиве чисел
z - количество чисел, оканчивающихся на единицу
S – среднее арифметическое чисел, оканчивающихся на единицу

var
х: array [1..100] of integer;
S,y: integer;
begin
S:= 0;
y:= 0;
write('Сколько чисел в массиве (не более 100 ');
readln (y);

write('Введите целые числа не превышают 300 (0 – признак окончания ввода, не входит в последовательность ');
for i:=1 to у do
begin
readln (х[i]);
if (x[i] mod 10 = 1) then begin S := S + x[i]; z:=z+1; end;
if (x[i] = 0) then i:=y;
end;
S: = S/z;
if y>0 then writeln(S) else writeln('NO');
end.

Страницы: 1 2 3 4 5
 
Перейти на другой форум:
Задания
• Разбор задачи №18 Найдите все значения a , при каждом из которых система уравнений (36)
• Разбор задачи №4 и №5 Вероятность того, что батарейка бракованная, равна 0,08 (35)
• Разбор задачи №10 Имеется два сосуда. Первый содержит 50 кг, а второй — 10 кг (35)
• Разбор задачи №12 Найдите точку максимума функции (35)
• Разбор задачи №13 Решите уравнение 750 𝑐𝑜𝑠3𝑥 +6⋅125 1/3+ (35)
• Разбор задачи №14 В правильную треугольную пирамиду с боковым ребром 4 (35)
• Разбор задачи №15 Решите неравенство 16 − 3 x (35)
• Разбор задачи №16 В июне 2025 года Олег Вадимович планирует взять кредит в банке на 4 года (35)
• Разбор задачи №17 В трапеции ABCD с меньшим основанием BC точки E и F (35)
• Разбор задачи №19 Из k кг материала фабрика изготавливает n одинаковых деталей (35)



Логин: Пароль: • Забыли пароль? • Регистрация
Сайт сделан на SiNG cms © 2010-2020