Question

СРОЧНООООО!!!!!!!!!! ПОМОГИТЕЕЕЕЕ НАПИСАТь ПРОГРАММУ НА TurboPascal КОТОРАЯ НАХОДИТ СУММУ ЛЮБОГО ЧЕТЫРЕХ ЗНАЧНОГО ЧИСЛА!!11!!1!!!1! СРОЧНООООО!!1!11!!! ПОМОГИТЕЕЕЕЕ ДАЮ 50 БАЛЛОВ!!!!!!!!!!!!!!!!!!

Answer 1

Ответ:

точно не уверен, но может работает.

Объяснение:

var

  a: 1000..9999; //Четырехзначное число

  a1, a2, a3, a4: 1..9;

 

begin 

  writeln('Введите четырехзначное число');

  readln(a);

  a1:= a mod 10;  //Первая с конца цифра

  a2:= (a mod 100) div 10;  //Вторая с конца цифра

  a3:= (a mod 1000) div 100;  //Третья с конца цифра

  a4:= a div 1000;  //Четвертая с конца цифра

  writeln('Сумма цифр данного числа:  ', a1 + a2 + a3 + a4);  //Сумма цифр

end

Answer 2

Конечно, я помогу вам написать программу на Turbo Pascal, которая будет находить сумму любого четырёхзначного числа. Вот пример такой программы:

pascalCopy code
program SumOfDigits;

var
  number, digit, sum: integer;

begin
  // Введите четырёхзначное число
  write('Введите четырёхзначное число: ');
  readln(number);

  // Проверяем, что число действительно четырёхзначное
  if (number < 1000) or (number > 9999) then
  begin
    writeln('Число не является четырёхзначным.');
    readln;
    exit;
  end;

  // Вычисляем сумму цифр
  sum := 0;
  while number > 0 do
  begin
    digit := number mod 10;  // Получаем последнюю цифру числа
    sum := sum + digit;      // Добавляем цифру к сумме
    number := number div 10; // Удаляем последнюю цифру из числа
  end;

  // Выводим результат
  writeln('Сумма цифр введенного числа равна: ', sum);

  readln;
end.

Скопируйте этот код в свою среду разработки Turbo Pascal и выполните программу. Она попросит вас ввести четырёхзначное число, а затем вычислит и выведет сумму его цифр. Надеюсь, это помогло!