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

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


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


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

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

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

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

Входные данные Выходные данные
9 13.5
–30
18
0
–15 NO
7
0


РЕШЕНИЕ:

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

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 9 = 0) then begin S := S + x[i]; z:=z+1; end;
end;
S: = S/z;
if y>0 then writeln(S) else writeln('NO');
if (x[i] = 0) then i:=y;
end.
№ 14 Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 4, или сообщает, что таких чисел нет (выводит NO). Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 признак окончания ввода, не входит в последовательность).
Количество чисел не превышает 100. Введённые числа не превышают 300.
Программа должна вывести среднее арифметическое чисел, кратных 4 или вывести «NO», если таких чисел нет.

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

Входные данные Выходные данные
8 52.0
120
64
16
0
111 NO
1
0


РЕШЕНИЕ:

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

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 4 = 0) then begin S := S + x[i]; z:=z+1; end;
end;
S: = S/z;
if y>0 then writeln(S) else writeln('NO');
end.
№ 15 Напишите программу, которая в последовательности целых чисел находит сумму и количество чисел, кратных 17, или сообщает, что таких чисел нет. На вход программы подаются целые числа, количество введённых чисел неизвестно, последовательность заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности).
Количество чисел не превышает 100. Введённые числа по модулю не превышают 300.
Программа должна вывести сумму и количество чисел, кратных 17, или вывести NO, если таких чисел в последовательности нет.

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

Входные данные Выходные данные
34 51 2
30
17
0
–16 NO
5
0


РЕШЕНИЕ:

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

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 17 = 0) then begin S := S + x[i]; z:=z+1; end;
if (x[i] = 0) then i:=y;
end;
if y>0 then writeln(S) else writeln('NO');
if y>0 then writeln(z);
end.
№ 16 Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое двузначных чисел или сообщает, что таких чисел нет. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности).
Количество чисел не превышает 100. Введённые числа не превышают 300.
Программа должна вывести среднее арифметическое двузначных чисел или вывести NO, если таких чисел в последовательности нет.

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

Входные данные Выходные данные
13 34.5
154
56
0
269 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] > 9) and (x[i] < 100) 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