Пожалуйста, помогите с информатикой, срочно!
Напишите программу для Pascal, которая считывает одно натуральное число и выводит на первой строке все делители этого числа в порядке возрастания, разделённые пробелами, а на второй — «ПРОСТОЕ» или «НЕТ» в зависимости от того, простым было введённое число или нет.
Формат ввода
Одно натуральное число.
Формат вывода
В первой строке — все делители введенного числа, записанные через пробел (перед первым и после последнего делителя пробелов нет).
Во второй — сообщение «ПРОСТОЕ» или «НЕТ».
Пример:
Ввод:
12
Вывод:
1 2 3 4 6 12
НЕТ
Ответы
Ответ дал:
0
Program n_1;
var x, i, k:int64;
begin
readln(x);
k:=0;
for i:=1 to x do
if x mod i = 0 then begin
write(i, ' ');
k:=k+1;
end;
writeln();
if k>2 then writeln('НЕТ')
else writeln('ПРОСТОЕ');
end.
Ответ дал:
0
https://znanija.com/task/32012995 , 100 баллов помогите пожалуйста с информатикой
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад