Question

Нужно запрограммировать в паскале задачку. С блок-схемой и пояснениями, если можно
С клавиатуры вводится целое число N<100. Вывести на экран все его делители. Если число простое (делится только на себя и на 1), вывести сообщение.

Answer 1

Var n,i,k:Integer;
begin
write ('Введите целое число (n<100): ');
readln (n);
for i:=1 to n do
if n mod i = 0 then
begin
writeln ('Делитель числа ',n,': ',i:2);
k:=k+1
end;
if k=2 then writeln('Число ',n,' простое')
end.

Answer 2

PascalABC.NET 3.2, сборка 1379 от 21.01.2017
Внимание! Если программа не работает, обновите версию!

begin
  var (n,k):=(ReadInteger('n='),1);
  Write('Делители: ');
  for var i:=1 to n div 2 do
    if n mod i=0 then begin Print(i); k+=1 end;
  Writeln(n);
  if k=2 then Writeln('Число простое')
end.

Примеры
n= 97
Делители: 1 97
Число простое

n= 45
Делители: 1 3 5 9 15 45