Question

Приветик умненьким мальчикам форума)) даю 100 баллов за каждый ответ >< Задача 1. Напишите программу, которая в последовательности целых чисел определяет их сумму и количество чётных чисел, кратных 5. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: сумму последовательности и количество чётных чисел, кратных 5. Задача 2. Напишите программу, которая по двум данным натуральным числам a и b, не превосходящим 30000, подсчитывает количество чётных натуральных чисел на отрезке [a, b] (включая концы отрезка). Программа получает на вход два натуральных числа a и b, при этом гарантируется, что 1 ≤ a ≤ b ≤ 30000. Проверять входные данные на корректность не нужно. Программа должна вывести одно число: количество чётных чисел на отрезке [a, b]. Задача 3. Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое двузначных чисел или сообщает, что таких чисел нет (выводит «NO»). Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести среднее арифметическое двузначных чисел или вывести «NO», если таких чисел нет. Значение выводить с точностью до десятых

Answer 1

Ответ:

задача 1

Program n1;

var sum,a,k: integer;

begin

sum:=0;

k:=0;

readln(a);

while a<>0 do

begin

sum:=sum+a;

if (a mod 2=0) and (a mod 5=0) then k:=k+1;

readln(a);

end;

writeln(sum);

writeln(k);

end.

задача 2

var a,b,i,k:integer;

begin

readln(a);

readln(b);

k:=0;

if (a>b) or (b>30000) or (a<1) then writeln('данные введены некорректно') else begin

for i:=a to b do

if i mod a=0 then k:=k+1;

writeln(k);end;end.

задача 3

begin

var r:=ReadSeqIntegerWhile(t->t<>0).Where(t->t.Between(10,99))

.DefaultIfEmpty.Average;

(r>0 ? r.ToString : 'No').Println

end.

Answer 2

Задача 1: Определение суммы и количества чётных чисел, кратных 5

Для решения данной задачи можно использовать цикл, который будет запрашивать у пользователя числа до тех пор, пока не будет введено число 0 (признак окончания ввода). Внутри цикла будем проверять каждое число на чётность и кратность 5, и при выполнении условий будем увеличивать счётчик чётных чисел и суммировать числа.

# Инициализация переменных
summa = 0
count = 0

# Цикл для ввода чисел и проверки условия
while True:
    num = int(input("Введите число: "))
    
    if num == 0:
        break
    
    if num % 2 == 0 and num % 5 == 0:
        summa += num
        count += 1

# Вывод результатов
print("Сумма последовательности:", summa)
print("Количество чётных чисел, кратных 5:", count)

Задача 2: Подсчёт количества чётных чисел на отрезке

Для решения данной задачи можно использовать цикл, который будет проходить по всем числам на отрезке `[a, b]` и подсчитывать количество чётных чисел.

# Ввод данных
a = int(input("Введите начало отрезка: "))
b = int(input("Введите конец отрезка: "))

# Инициализация переменной для подсчёта чётных чисел
count = 0

# Цикл для подсчёта чётных чисел
for num in range(a, b+1):
    if num % 2 == 0:
        count += 1

# Вывод результата
print("Количество чётных чисел на отрезке [", a, ",", b, "]:", count)

Задача 3: Нахождение среднего арифметического двузначных чисел

Для решения данной задачи можно использовать цикл, который будет запрашивать у пользователя числа до тех пор, пока не будет введено число 0 (признак окончания ввода). Внутри цикла будем проверять каждое число на принадлежность к двузначным числам и суммировать их. После окончания цикла будем проверять, были ли введены двузначные числа, и если да, то вычислим и выведем их среднее арифметическое.

# Инициализация переменных
summa = 0
count = 0

# Цикл для ввода чисел и проверки условия
while True:
    num = int(input("Введите число: "))
    
    if num == 0:
        break
    
    if 10 <= num < 100:
        summa += num
        count += 1

# Проверка наличия двузначных чисел
if count > 0:
    average = summa / count
    print("Среднее арифметическое двузначных чисел:", average)
else:
    print("NO")

Обратите внимание, что в коде приведены примеры на языке программирования Python для решения данных задач. Вы можете скопировать и выполнить код в среде разработки Python, чтобы убедиться в его работоспособности.