В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
HeLLDeViLL
HeLLDeViLL
18.07.2021 18:01 •  Информатика

Каким преимуществом обладают программы 2d графика по сравнению с ресунком выполненным от руки

Показать ответ
Ответ:
Кравченко123
Кравченко123
23.03.2020 23:17

Бiблiотека random присутня пiсля установки, тому хай вас не лякає її присутнiсть

from random import randint

lst = []

# список з 10-тьма випадковими числами вiд -10 до 10

for i in range(10):

   lst.append(randint(-10, 10))

# тут я застосував технологiю list comprehension

more_then_zero = [a for a in lst if a > 0]

less_then_zero = [a for a in lst if a < 0]

# сумма/кiлькiсть/середнє арифметичне чисел бiльших за 0

print(sum(more_then_zero))

print(len(more_then_zero))

print(sum(more_then_zero) / len(more_then_zero))

print("\n") # банальний вiдступ

# сумма/кiлькiсть/середнє арифметичне чисел менших за 0

print(sum(less_then_zero))

print(len(less_then_zero))

print(sum(less_then_zero) / len(less_then_zero))

0,0(0 оценок)
Ответ:
Angela11001
Angela11001
08.10.2020 02:11
Var
    f: file of integer;
    i, n, x, t, k, max: integer;
    s: integer;

begin
    randomize;
    write('n=');
    readln(n);
    
    assign(f, 'numbers.dat');
    rewrite(f);
    
    max := -1;
    for i := 1 to n do
    begin
        x := random(4800) + 20;
        write(f, x);
        write(x, ' ');
        if x > max then max := x;
    end;
    writeln;
    
    seek(f, 0);
    k := 0;
    while not eof(f) do
    begin
        read(f, x);
        t := x;
        s := 0;
        while t > 0 do
        begin
            s := s + sqr(t mod 10);
            t := t div 10;
        end;
        if x mod s = 0 then k := k + 1;
        if x > max - 50 then write(x, ' ');
    end;
    writeln;
    
    writeln(k);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота