Нужно запрограммировать в паскале задачку. С блок-схемой и пояснениями, если можно

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

Question

Информатика

Жасмен

19 июня, 05:20

Нужно запрограммировать в паскале задачку. С блок-схемой и пояснениями, если можно

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

+2

Ответы (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.