М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
yuralavrenov2016
yuralavrenov2016
09.06.2022 15:52 •  Информатика

Напишите программу(на Python), которая ищет среди целых чисел, принадлежащих числовому отрезку [130149; 130211], числа, имеющие ровно четыре различных натуральных делителя, не считая единицы и самого числа. Для каждого найденного числа запишите эти четыре делителя в ответ с новой строки в порядке убывания произведения этих четырёх делителей. Делители в строке должны следовать в порядке возрастания и быть записаны через пробел. Например, в диапазоне [10,18] ровно четыре целых различных натуральных делителя имеют 12 и 18, поэтому для этого диапазона ответ:

2 3 6 9

2 3 4 6

👇
Открыть все ответы
Ответ:
Камранбек
Камранбек
09.06.2022

#include <iostream>

void task1()

{

std::cout << "TASK_1\n";

for (int i = 1001; i <= 1025; i += 3)

 std::cout << i << " ";

std::cout << "\n\n";

}

void task2()

{

std::cout << "task_2\n";

unsigned n;

std::cout << "n: ";

std::cin >> n;

for (int i = 0; i < n; ++i)

 std::cout << "Silence is golden\n";

std::cout << "\n";

}

void task3()

{

std::cout << "task_3\n";

int sum = 0;

for (int i = 10; i <= 88; ++i)

 sum += i;

std::cout << sum << "\n\n";

}

void task4()

{

std::cout << "task_4\n";

for (int i = 100; i >= 1; i -= 4)

 std::cout << i << " ";

std::cout << "3 2 1\n\n";

}

int main()

{

task1();

task2();

task3();

task4();

}

4,7(100 оценок)
Ответ:
sgjisgop
sgjisgop
09.06.2022

1)

var

  s : real;

  i, n : integer;

begin

  s := 0;

  read (n);

  for i := 1 to n do s := s + 1 / i;

  writeln (s);

end.

 

2)

var

  a, i : integer;

begin

  a := 1;

  for i := 1 to 8 do

  begin

    a := a * 2;

    writeln ('Через ', i * 3, 'часов будет ', a, ' амеб');

  end;

end.

 

3)

var

  n, i : integer;

  x, s : real;

begin

  s := 0;

  read (n, x);

  for i := 1 to n do

    s := s + sin (i * x);

  writeln (s);

end.

 

4)

var

  n, a, r, i : integer;

begin

  r := 1;

  read (a, n);

  for i := 1 to n do r := r * a;

  writeln (r);

end.

4,8(71 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ