Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Сумма двух первых чисел заданного четырехзначного числа равна сумме двух его последних цифр

Ответ оставил Гость

Program prim;
var n,s1,s2:integer;
begin
write(n=); readln(n);
s1:=n div 1000 + n div 100 mod 10;
s2:=n mod 100 div 10+n mod 10;
if s1=s2 then writeln(s1,=,s2) else writeln(s1,<>,s2)
end.
Пример работы:
n=1345
4<>9