В воспитании, так как оно полностью зависит от психологии и всего в этом роде, и правильное воспитание нельзя рассчитать числами и схемами
Var
A:integer;
Begin
Write('A = ');
ReadLn(A);
WriteLn(A mod 10,(A div 10) mod 10,A div 100)
End.
Решение находится во вложении.
Исходное число 9205₁₆ = 9×16³+2×16²+5 = 9×4096+2×256+5 = 37381₁₀
Var a,b,c:integer;
begin
a:=random(10);
writeln('a = ',a);
b:=random(10);
writeln('b = ',b);
c:=random(10);
writeln('c = ',c);
writeln('Среднее арифметическое = ',(a+b+c)/3);
end.
Пример:
a = 4
b = 2
c = 9
Среднее арифметическое = 5