Question

Помогите, Паскаль! Дано n чисел. Найти а) сумму цифр каждого из них; б) количество чисел, сумма цифр которых кратна 3. Повторить системы счисления

Answer 1

Var n,a,i,s,k:integer;
 begin
write('n='); readln(n);
k:=0;
for i:=1 to n do
 begin
 write('a='); readln(a);
 s:=0;
 while a<>0 do
 begin
  s:=s+a mod 10;
  a:=a div 10;
  end;
  writeln('  sum=',s);
  if s mod 3 =0 then k:=k+1;
  end;
 writeln('k=',k);
end.

Answer 2

Для решения этой задачи описанной на языке программирования Паскаль, давайте рассмотрим алгоритм решения каждого из подзаданий:

а) Найти сумму цифр каждого из чисел:

Для нахождения суммы цифр каждого числа из набора чисел, нужно последовательно обрабатывать каждое число и складывать его цифры.

1. Считываем количество чисел `n`. 2. Затем считываем сами числа. 3. Для каждого числа: - Инициализируем переменную для хранения суммы цифр. - Проходим по каждой цифре числа и добавляем её к сумме. - Выводим сумму для каждого числа.

program SumOfDigits;
var
  n, num, digit, sum, i: integer;
begin
  writeln('Введите количество чисел: ');
  readln(n);

for i := 1 to n do
  begin
    writeln('Введите число ', 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.

б) Найти количество чисел, сумма цифр которых кратна 3:

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

program CountDigitsMultipleOfThree;
var
  n, num, digit, sum, count, i: integer;
begin
  writeln('Введите количество чисел: ');
  readln(n);

count := 0;
  for i := 1 to n do
  begin
    writeln('Введите число ', i, ': ');
    readln(num);

sum := 0;
    while num > 0 do
    begin
      digit := num mod 10;
      sum := sum + digit;
      num := num div 10;
    end;

if sum mod 3 = 0 then
      count := count + 1;
  end;

writeln('Количество чисел, сумма цифр которых кратна 3, равно ', count);
end.

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

Обратите внимание, что код написан на языке Pascal. Вы можете скомпилировать и запустить этот код в среде, поддерживающей Pascal, такой как Free Pascal.