Х=18
у=8+24=32
х=3+3=6
с=6*632+6/6=5
Можно так: складываем. Делим пополам - получаем среднее. Находим разность между заданными числами и средним. Если разность отрицательная - то меньшее число, если разность положительная - то большее.
Program exs;
var a, i, sum : integer;
begin
sum:= 0;
readln(a); {Считывание числа}
for i:= 1 to 4 do begin
sum:=sum + (a mod 10); {Находим остаток от деления на 10}
a:=a div 10; {Выкидываем найденную цифру из числа}
end;
writeln(sum);
end.
Var a,b:integer;
begin
readln(a);
b:=a+10;
writeln(b);
<span>end.</span>
Дистрибутив – это файл или файлы, предназначенные для установки какой-либо программы.