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
<span>2Мбайта = 2048 Кбайт = 2097152 байт = 16Мбит = 16777216 бит</span>
Астестеройдес такого слова нету! вы наверно имеете ввиду астероид? то это - одна из малых планет, с диаметром 1тыс. км, пояс которых обращается вокруг солнца между орбитами марса и юпитера!