Question

Дано целое положительное четырехзначное число. Напишите программу, позволяющую определить сумму двух первых цифр и разность двух последних цифр

Answer 1

Var m, n, i, j: integer;
begin
     readln(n);
     m := n div 1000;
     n := n mod 1000;
     i := n div 100;
     n := n mod 100;
     j := n div 10;
     n := n mod 10;
     writeln(m, '-', i, '=', m + i, ' ', i, '-', j, '=', i - j);
end.     

Answer 2

Program fatzz051;
var a:integer;
begin
readln(a);
writeln('Sum= ',a div 1000+a div 100 mod 10);
writeln('Razn=',a div 10 mod 10-a mod 10);
end.