Question

Задача в Pasckal. Срочняк спасайте) Ввести (n)-значное число, разделить его на составляющие его цифры, найти сумму этих цифр и найти максимальное и минимальное значение

Answer 1

Pascal

var

 s:string;

 i, Amin, Amax, Asum : integer;

begin

 Amin := 9;

 Amax := 0;

 Asum := 0;

 readln(s);

 for i:= 1 to length(s) do begin

   if strtoint(s[i]) > Amax then Amax := strtoint(s[i]);

   if strtoint(s[i]) < Amin then Amin := strtoint(s[i]);    

   inc(ASum, strtoint(s[i]));

 end;

 writeln('Sum=', Asum);  

 writeln('Max=', Amax);

 writeln('Min=', Amin);  

end.

Answer 2

Конечно, я могу помочь вам с этой задачей на языке Pascal. Вот решение:

pascalCopy code
program MaxMinSum;
var
  number, digit, sum, max, min: integer;
begin
  // Ввод числа
  write('Введите число: ');
  readln(number);
  
  // Инициализация переменных
  sum := 0;
  max := -1; // Используем -1 как начальное значение максимума
  min := 10; // Используем 10 как начальное значение минимума
  
  // Разделение числа на цифры, вычисление суммы, максимума и минимума
  while number > 0 do
  begin
    digit := number mod 10;
    sum := sum + digit;
    
    if digit > max then
      max := digit;
      
    if digit < min then
      min := digit;
      
    number := number div 10;
  end;
  
  // Вывод результатов
  writeln('Сумма цифр: ', sum);
  writeln('Максимальное значение: ', max);
  writeln('Минимальное значение: ', min);
end.

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

Надеюсь, это поможет вам решить задачу! Если у вас возникнут еще вопросы, пожалуйста, дайте мне знать.