Question

Написать программу для нахождения суммы 3х случайных чисел на Pascal ABC

Answer 1

var x,y,z,n:integer;

begin

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

readln (n);

x:=n div 100;

y:=(n mod 100) div 10;

z:=(n mod 100) mod 10;

n:=x+y+z;

writeln ('Сумма цифр этого числа = ', n);

end.

Answer 2

Для нахождения суммы трех случайных чисел на Pascal ABC, мы можем использовать функцию Random() для генерации случайных чисел и затем сложить их. Вот пример программы:

pascalCopy code
program SumOfThreeRandomNumbers;

uses
  SysUtils;

var
  num1, num2, num3, sum: Integer;

begin
  Randomize; // Инициализируем генератор случайных чисел

  // Генерируем три случайных числа от 1 до 100
  num1 := Random(100) + 1;
  num2 := Random(100) + 1;
  num3 := Random(100) + 1;

  // Вычисляем сумму трех случайных чисел
  sum := num1 + num2 + num3;

  // Выводим сгенерированные числа и сумму на экран
  Writeln('Первое случайное число: ', num1);
  Writeln('Второе случайное число: ', num2);
  Writeln('Третье случайное число: ', num3);
  Writeln('Сумма трех случайных чисел: ', sum);

  Readln;
end.

Обратите внимание, что перед использованием функции Randomize необходимо подключить модуль SysUtils. Он позволяет инициализировать генератор случайных чисел, чтобы получать разные значения при каждом запуске программы. В коде приведены примеры случайных чисел от 1 до 100, но вы можете изменить диапазон в Random(100) + 1 на тот, который вам необходим.