Question

Даны 5 шестизначных чисел

Найти у каждого сумму цифр (Pascal)

Answer 1

Ответ:

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

var

a,b,c,max_s,max:integer;

function Sum(a:longint):integer;

var

s:integer;

begin

s:=0;

while a<>0 do

begin

s:=s+a mod 10;

a:=a div 10;

end;

Sum:=s;

end;

begin

write('a,b,c=');

readln(a,b,c);

if Sum(a)>Sum(b) then

begin

max_s:=Sum(a);

max:=a;

end

else

begin

max_s:=Sum(b);

max:=b;

end;

if Sum(c)>max_s then

begin

max_s:=Sum(c);

max:=c;

end;

write(max);

end.

Объяснение:

Это вроде бы решение, меня невини :/ ифа такая была в инте:'/