Question

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

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.