Дано целое положительное четырехзначное число. Напишите программу, позволяющую определить сумму двух первых цифр и разность двух последних цифр
Дано целое положительное четырехзначное число. Напишите программу, позволяющую определить сумму двух первых цифр и разность двух последних цифр
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы