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

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

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

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.