Программа находит сумма квадратов двух чисел, чтоб уьроенного меняешь только строку c= и пишешь c=a*3+b*3
Для кодирования одного из 256 символов требуется log(2)256 = 8 бит (2^8=256); для кодирования слова, состоящего из 5 символов, необходимо 5*8 = 40 бит = 40/8 байт = 5 байт.
П0 -> П1 ИП0 x^2 пи * 3 / С/П ИП0 x^2 ИП1 x^2 + КвКор ИП0 пи * * ИП0 x^2 пи * + С/П
Ввод: R -> h С/П. Далее на экране объём, после С/П - площадь поверхности.
Var
N,A,k:integer;
P,S:real;
Begin
Write('N = ');ReadLn(N);
k:=0;
For N:= 1 to N-1 do
Begin
A:=N;
S:=0;
While A>0 do
Begin
S:=S+(A mod 10);
A:=A div 10;
End;
A:=N;
P:=1;
While A>0 do
Begin
P:=P*(A mod 10);
A:=A div 10;
End;
if S=P then
Begin
WriteLn(N);
k:=k+1;
End;
End;
if k=0 then WriteLn('Нет');
End.