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