Ну,вот,может это поможет)
<span>uses crt;
</span>
<span>var vz,vn:</span>real;
<span>
<span>begin
</span></span>
<span> write(</span>'введите возраст невесты:');
<span>
readln(vn);
</span>
write('введите возраст жениха:');
<span>
readln(vz);
</span>
<span> if vn=(vz/</span>2)+7 then writeln('Оптимальное соотношение'<span>) else writeln(</span>'Соотношение не идеально')
<span>
end.</span>
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadInteger('a=');
Writeln(1.To(a).Aggregate(int64(1),(p,q)->p*q))
end.
<u>Пример</u>
a= 20
2432902008176640000
Ответ:Так ну тут только 3 и 4 знаю
Задание 3 - 5 Кбайт = 5120 байт = 40960 бит
2^5 Кбайт = 2^15 байт = 2^18 бит
Задание 4 - 19 в десятичной = 10011 в двоичной
99 в десятичной = 143 в восьмеричной
199 в десятичной = C7 в Шестнадцатиричной
Объяснение: