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

РАЗЛОЖЕНИЕ НА ПРОСТЫЕ - 2 Задача Требуется разложить целое число N на простые множители, представив его в виде произведения степеней простых множителей и вывести результат в порядке возрастания на c++


РАЗЛОЖЕНИЕ НА ПРОСТЫЕ - 2 Задача Требуется разложить целое число N на простые множители, представив

Показать ответ
Ответ:
motorindmitry12
motorindmitry12
30.04.2022 12:26

===== PascalABC.NET =====

procedure MyCompare<T>(P, Q: HashSet<T>);

begin

 if P.SetEquals(Q) then

   Print('Множества эквивалентны')

 else if P.IsSubsetOf(Q) then

   Print('Первое множенство является подмножеством второго')

 else if P.IsSupersetOf(Q) then

   Print('Второе множенство является подмножеством первого')

 else

   Print('Проверка множеств завершена')

end;

begin

 var n := ReadInteger('Мощность первого множества:');

 var P := ReadSeqInteger('Введите элементы множества:', n).ToHashSet;

 n := ReadInteger('Мощность второго множества:');

 var Q := ReadSeqInteger('Введите элементы множества:', n).ToHashSet;

 MyCompare(P, Q)

end.


Задание на фотографии
0,0(0 оценок)
Ответ:
jkuf80
jkuf80
13.09.2022 16:16
Program Ves;
Var a1,a2,a3,a4,t1,t2,t3,p,d,vp,b: Integer;
begin 
writeln ('программа вычисляет норму для данного ученика');
writeln ('введи массу учебника 1');readln (a1);
writeln ('введи массу учебника 2');readln (a2);
writeln ('введи массу учебника 3');readln (a3);
writeln ('введи массу тетради 1');readln (t1);
writeln ('введи массу тетради 2');readln (t2);
writeln ('введи массу тетради 3');readln (t3);
writeln ('введи массу пенала');readln (p);
writeln ('введи массу дневника');readln (d);
writeln ('введи массу портфеля');readln(vp);
b:=a1+a2+a3+a4+t1+t2+t3+p+d+vp;writeln ('общая масса портфеля= ' b);
if (b<=5) then writeln ('норма') else writeln ('ненорма');
readln;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота