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

Vandannc Vandannc    1   25.05.2019 09:00    3

Ответы
катюшка315 катюшка315  21.06.2020 10:22
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.
ПОКАЗАТЬ ОТВЕТЫ
Денок07 Денок07  21.06.2020 10:22
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.     
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика