A -> B = 4 + B -> D = 3 + D -> E = 2 + E -> D = 5 (4+3+2+5) = 14
A -> B = 4 + B -> C = 6 + C -> E = 4 + E -> D = 5 (4+6+4+5) = 19
Ответ 14
Var
N,A:integer;
B:longint;
k:boolean;
Begin
Write('N = ');
ReadLn(N);
For N:= 1 to N do
Begin
k:=true;
A:=N;
B:=A*A;
While A<>0 do
Begin
if (A mod 10 <> B mod 10) then k:=false;
A:= A div 10;
B:= B div 10;
End;
if k then Write(N,' ');
End;
End.
Program abc;
uses crt;
var
a,b,c:integer;
begin
writeln ('Введите значение Первого числа (А)');
readln(a);
writeln ('Введите значение Второго числа (B)');
readln(b);
writeln ('Введите значение Третьего числа (C)');
readln(c);
If (a > b) and (b > c) then
begin
writeln ('Числа А, В, С отсортированы в порядке убывания: True');
end
else
begin
writeln ('Числа А, В, С отсортированы в порядке убывания: False');
end;
end.<span>
</span>
Ответ:
453(*)
521
-----
+ 453
+ 1126
+2727
-------
304633(в 8 системе счисления)