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

Написать код в Паскале.
Определить: сумма цифр какого из двух заданных чисел больше и насколько?

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

Var a,b:longint;
function sum (n:integer):integer;
  var s:integer;
  begin
     s:=0;
     while (n<>0) do
       begin
         s:=s+n mod 10;
         n:=n div 10;
       end;
     sum:=s; 
  end;
  begin
    write (A = );
    readln (a);
    write (B = );
    readln (b);
    if sum(a) > sum(b) then
       writeln (Сумма цифр 1ого числа больше на ,sum(a)-sum(b))
    else if sum(b) > sum (a) then 
       writeln (Cумма цифр 2ого числа больше на ,sum(b)-sum(a))
    else writeln (Сумма цифр 1ого числа равна сумме цифр 2ого числа);
    readln;
  end.