Даны 5 шестизначных чиселНайти у каждого сумму цифр (Pascal). Created by sashasashaandrianov. informatika-ru

Даны 5 шестизначных чиселНайти у каждого сумму цифр (Pascal)...

sashasashaandrianov @sashasashaandrianov

August 2021 1 5 Report

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

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

Answers & Comments

milanasadykova

Ответ:

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.

Объяснение:

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

0 votes Thanks 0

Answers & Comments

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.

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

kto sharit v grammatike pzh pomogite1 the wind and the sun was shining bri

8 +...

1 priznaki semi kak socialnoj gruppy a nalichie imushestva b obshnost byta v

dayu 50 ballov ochen nuzhen otvet napisat programmu na yazyke pascal dan vekto

рекомендуемые вопросы

Helpful Links

Helpful Social