Question

УЛЬТРАМЕГАГИПЕРСРОЧНО! Решается моя оценка по ивт за полугодие: 4 или 5.Нужно написать программу в PascalABC.NET, которая генерирует рандомное двузначное число, определяет его делители, считает их количество, складывает эти делители и определяет, простое число или нет. УМОЛЯЮ, ДАЮ 95 БАЛЛОВ​

Answer 1

Ответ:

var count, s, del, n: integer;

begin

 count := 1;

 n := random(10, 100);

 s := n;

 writeln('Исходное число: ',n);

 write('Делители числа ', n, ' : ');

 for del := 1 to n div 2 do

 begin

   if n mod del = 0 then

   begin

     write(del, ' ');

     inc(count);

     s := s + del;

   end;

 end;

 writeln(n);

 writeln('Количество делителей: ', count);

 writeln('Сумма делителей: ', s);

 if count = 2 then writeln('Число простое')

 else writeln('Число не простое');

end.

Answer 2

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

pascalCopy code
program CheckNumber;

var
  randomNumber, i, divisorsCount, divisorSum: integer;
  isPrime: boolean;

begin
  // Инициализация генератора случайных чисел
  Randomize;
  
  // Генерируем случайное двузначное число
  randomNumber := Random(90) + 10;
  
  writeln('Сгенерировано случайное число: ', randomNumber);
  
  // Инициализация переменных
  divisorsCount := 0;
  divisorSum := 0;
  isPrime := true;
  
  // Проверяем делители числа
  for i := 1 to randomNumber do
  begin
    if (randomNumber mod i) = 0 then
    begin
      writeln('Делитель: ', i);
      divisorsCount := divisorsCount + 1;
      divisorSum := divisorSum + i;
      
      // Проверяем, является ли число простым
      if (i > 1) and (i < randomNumber) then
        isPrime := false;
    end;
  end;
  
  writeln('Количество делителей: ', divisorsCount);
  writeln('Сумма делителей: ', divisorSum);
  
  if isPrime then
    writeln('Число простое.')
  else
    writeln('Число не является простым.');
  
  // Ожидание ввода перед закрытием окна
  readln;
end.

Эта программа генерирует случайное двузначное число, находит его делители, подсчитывает их количество и суммирует их. Затем программа определяет, является ли число простым, и выводит результат на экран.

Надеюсь, эта программа поможет вам получить высокую оценку! Удачи!