Информатика в паскаль, 9 класс

import random

# from even.py import get_evens

# from odd.py import get_odds

# from mean.py import get_mean

# from max.py import get_max

# from sum.py import get_sum

numbers = [random.randint(1, 100) for i in range(25)]

# even.py

def get_evens():

for num in numbers:

if num % 2 == 0:

print(num, sep=' ')

# odd.py

def get_odds():

for num in numbers:

if num % 2 != 0:

print(num, sep=' ')

# mean.py

def get_mean():

print(sum(numbers) / len(numbers))

# max.py

def get_max():

print(max(numbers))

# sum.py

def get_sum():

print(sum(numbers))

def main():

get_evens()

get_odds()

get_mean()

get_max()

get_sum()

main()

Писал с телефона, могут быть ошибки

900

Объяснение:

Для решения была использована программа на Паскале, которая будет ниже. Её суть заключается в переборе чисел от 1000 до 9999. с операции mod ищется остаток от деления на 10(т.е крайняя цифра), с операции div при делении на 1000 берёт первое число, и сравнивает их. Если цифры совпадают, она добавляет один в "общую копилку", т.е простой счётчик. В результате программа вывела 900.

program znania;

uses crt;

var a, b:Integer;

begin

for a := 1000 to 9999 do

begin

if (a mod 10)=(a div 1000) then

b:=b+1;

end;

writeln(b);

readln;

end.