Var I,S: integer;
Begin
S:=0;
for I:=0 to 9 do {цикл, перебираем цифры от 0 до 9 и присваиваем их переменной I }
S:=S+sqr(I); {sqr(I)- квадрат I, Вычисляем квадрат и добавляем его в } общую сумму S}
writeln('сумма квадратов цифр = ',S); {выводим сумму}
<span>end.</span>
Сначала переведем В в восьмеричную систему.
2034 (5) = 415 (8)
415 (8) + 327 (8) = 744 (8)
Переведу результат в двоичную систему.
744 (8) = 111100100 (2).
Алфавит = 10 цифр+26 маленьких букв+26 больших букв = 62символа.
ближайщая степень двойки 64 = 2^6 т.е. 6 бит на символ
6*10 = 60 бит весит пароль
870*8-60 = 6 900 бит = 862.5 байт
862 байт
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
1)
begin
var x := ReadReal('x =');
Writeln(abs(x**2 - x**3) - 7*x/(x**3 - 15*x));
end.
2)
begin
var x := ReadReal('x =');
if (x <= 0) then
Writeln(0)
else
if (x <= 1) then
Writeln(x)
else
Writeln(x**4);
end.