Составте программму.определяющую,является ли число х простым.Число х введите с клавиатуры.
program m1;
var x,del:integer;
begin
write(Введите x: ); readln(x);
write(Делители: );
for del:=1 to x do
if (x mod del)=0 then
write(del, );
writeln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
