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

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

Question

Информатика

Хайбат

21 января, 10:39

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

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

+1

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