Виды информации(многоуровневый список, 2 уровня в данном случае):
1текстовая
1.1книги
1.2журналы
1.3статьи в интернете
2звуковая или аудио
2.1живая речь
2.2песни
2.3аудиокниги
354=01100010
872=010101101000
648=010001000
931=110100011
Решение во вложении
..............................
Var a,b,d,m:integer;
begin
writeln('Введите два числа:');
write('a = '); readln(a);
write('b = '); readln(b);
d:=a div b;
m:=a mod b;
writeln('D = ',d);
writeln('M = ',m);
end.
Пример:
Введите два числа:
a = 16
b = 6
D = 2
M = 4