Дано число.Определить является ли оно простым. Программа на паскале. Напишите через while ИЛИ repeat.Заранее спасибо)
Дано число.Определить является ли оно простым. Программа на паскале. Напишите через while ИЛИ repeat.Заранее спасибо)
Гость
Ответ(ы) на вопрос:
Гостьvar n,i: integer;
begin
write('Введите целое число = ');
readln(n);
i:=2;
while (n mod i <> 0) do i:=i+1;
if i=n then writeln('Число ',n,' простое')
else writeln('Число ',n,' не простое');
end.
Не нашли ответ?
Похожие вопросы