Дано трехзначное и четырехзначное число. В каком числе сумма цифр больше? Напишите, пожалуйста, программу для Pascal.ABC.
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
9 лет назад