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