var
f: integer;
begin
write('Сколько дней: ');
readln(f);
writeln('Полных недель: ', f div 7);
writeln('Полных месяцев (берем месяц 30 дней): ', f div 30);
end.
Наверное, во второй и третьей частях задания надо перевести числа в другие системы счисления. Что делать в первой части, я не очень поняла (похоже, надо упростить выражение; в общем, я пыталась).
1. не (A * B) + (B * C) = (не A + не B) + (B * C) = (не А + не В + В) * (не А + не В + С) = (не А + В) * (не А + не В + С)
2. 264 в 10-ной = 100001000 в 2-ной = 410 в 8-ной = 108 в 16-ной
3. 10100101 в 2-ной = 165 в 10-ной = 245 в 8-ной = А5 в 16-ной
3157 в 8-ной = 1647 в 10-ной = 11001101111 в 2-ной = 66F в 16-ной
А64 в 16-ной = 2660 в 10-ной = 101001100100 в 2-ной = 5144 в 8-ной
//PascalABC.NET 3.1 сборка 1219
begin
var a := Range(1, 20).Aggregate(5, (s, x)-> s + 4);
PrintLn(a);
end.
или более сложно
const
n = 20;
var
i, a: integer;
begin
a := 5;
for i := 2 to 20 do
a := a + 4;
writeln(a);
end.