Question

ОЧЕНЬ СРОЧНО!!! Дано шестизначное число А. Найти сумму цифр числа и среднее арифметическое. ПАСКАЛЬ!

Answer 1

Program sumInt;
var
a: Integer;
begin

writeln('Введите число = ');
readln(a);

writeln('Сумма равна = ');
writeln( (a div 100000) + (a div 10000 mod 10) + (a div 1000 mod 10 mod 10) + (a div 100 mod 10 mod 10 mod 10) + (a mod 10));

writeln('Среднее арифмитияеское = ');
writeln((a div 100000) + (a div 10000 mod 10) + (a div 1000 mod 10 mod 10) + (a div 100 mod 10 mod 10 mod 10) + (a mod 10) / 6);

end.

Answer 2

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

pascalCopy code
program FindSumAndAverage;

var
  A, num, sum: integer;
  count: real;

begin
  // Введите шестизначное число A
  write('Введите шестизначное число A: ');
  readln(A);

  // Проверяем, что число A является шестизначным
  if (A < 100000) or (A > 999999) then
  begin
    writeln('Ошибка: Введите шестизначное число.');
    exit;
  end;

  // Инициализируем переменные
  num := A;
  sum := 0;
  count := 0;

  // Вычисляем сумму цифр числа A
  while num > 0 do
  begin
    sum := sum + (num mod 10);
    num := num div 10;
    count := count + 1;
  end;

  // Вычисляем среднее арифметическое
  if count <> 0 then
  begin
    count := sum / count;
  end;

  // Выводим результаты
  writeln('Сумма цифр числа A: ', sum);
  writeln('Среднее арифметическое цифр числа A: ', count:0:2);
end.

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