Теперь не плагиат
program pr;
var c: integer;
begin
writeln('Введите число С');
readln(c);
writeln('Остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10));
end.
Http://calculatori.ru/perevod-megabit-v-megabajty.html <span>128 бит равно 16 байт
</span>
31 mod 7 = 3 и это означает понедельник.
Пн - 3
Вт - 4
Ср - 5
Чт - 6
Пт - 0 (счет от 0 до 6 по кольцу, потому что это отстатки деления на 7)
Сб - 1
Вс - 2
Тогда получаем
chislo := chislo mod 7
если chislo=3 то y:= "Пн"
если chislo=4 то y:= "Вт"
если chislo=5 то y:= "Ср"
если chislo=6 то y:= "Чт"
если chislo=0 то y:= "Пт"
если chislo=1 то y:= "Сб"
если chislo=2 то y:= "Вс"
1)101011001
2)0.0013)101101.10100110011