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
2*16*1000*24*5*60 бит=(2*16*1000*24*5*60)/2^23 Мбайт=28,23 Мбайт=28 Мбайт
В результате переменная b примет значение 6
1) Такто А, но может быть еще и В т.к человек мб исполнителем.
2) Б
3)В