Program n1; var a,d1,d2,d3,d4: integer; begin write('введите 4-х значное число: '); readln(a); d1:=a div 1000; d4:= a mod 10; d3:=round(((a mod 100)-d4)/10); d2:=round( (a mod 1000 -(a mod 100)-d4)/100); if (d1+d4=d2+d3) then writeln('yes') else writeln('no'); end.
Answers & Comments
Verified answer
Program n1;var a,d1,d2,d3,d4: integer;
begin
write('введите 4-х значное число: ');
readln(a);
d1:=a div 1000;
d4:= a mod 10;
d3:=round(((a mod 100)-d4)/10);
d2:=round( (a mod 1000 -(a mod 100)-d4)/100);
if (d1+d4=d2+d3) then writeln('yes') else writeln('no');
end.