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.