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.

Объяснение:

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

Answer 2

Вы можете использовать следующий код на языке программирования Pascal, чтобы найти сумму цифр в каждом из пяти шестизначных чисел:

pascalCopy code
program SumOfDigits;
var
  num, sum, digit: integer;
begin
  writeln('Введите пять шестизначных чисел:');
  for var i := 1 to 5 do
  begin
    write('Число ', i, ': ');
    readln(num);
    sum := 0;
    while num > 0 do
    begin
      digit := num mod 10;
      sum := sum + digit;
      num := num div 10;
    end;
    writeln('Сумма цифр числа ', i, ' равна ', sum);
  end;
end.

Скопируйте этот код в среду программирования Pascal, и он попросит вас ввести пять шестизначных чисел, после чего найдет сумму цифр в каждом из них и выведет результаты на экран.