Дано трехзначное и четырехзначное число. В каком числе сумма цифр больше? Напишите,...

Question

Дано трехзначное и четырехзначное число. В каком числе сумма цифр больше? Напишите, пожалуйста, программу для Pascal.ABC.

Comments

Только Pascal? Java, C++ не подойдут?

---

неее, у нас пока только паскаль

Answer 1

Var x,y, sum1,sum2:integer;
begin
  readln(x);
  readln(y);
  while x<>0 do begin 
     sum1:=sum1 + x mod 10; 
     x := x div 10;
  end; 
  while y<>0 do begin 
      sum2:=sum2 + y mod 10;
      y := y div 10; 
  end; 
  if sum1>sum2 then Writeln('v pervom: ',sum1, ' (vo vtorom ',sum2,')') else writeln('vo vtorom: ',sum2,' (v pervom ',sum1,')');
end.