Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var a, b: integer;
- p:boolean;
- sum1, sum2: integer;
- begin
- //×èòàåì ÷èñëà
- read(a);
- read(b);
- writeln();
- p:=true;
- //Ñ÷èòàåì ñóììó öèôð
- while a<>0 do
- begin
- sum1:=sum1 + a mod 10;
- a:=a div 10;
- end;
- while b<>0 do
- begin
- sum2:=sum2 + b mod 10;
- b:=b div 10;
- end;
- //Ñðàâíèâàåì ñóììû, âûâîäèì ðåçóëüòàò
- //Åñëè ðàâíû
- if sum1=sum2 then begin
- p:=false;
- writeln('A = B');
- writeln(sum1);
- end;
- //Åñëè íåðàâíû
- if p=true then
- if sum1>sum2 then begin
- writeln('A > B');
- writeln(sum1);
- end
- else begin
- writeln('B > A');
- writeln(sum2);
- end;
- end.
Add Comment
Please, Sign In to add comment