Привет;) Помогите пжл с задачей.Надо сделать такую же,только на тему "while" грубо говоря заменить "for' на "while".var a,n,k: integer;beginwrite('vvedite chislo ');readln(n);if (n=1) or (n=0) then write( n, ' ne sostavnoe i ne...
Привет;) Помогите пжл с задачей.Надо сделать такую же,только на тему "while" грубо говоря заменить "for' на "while".
var a,n,k: integer;
begin
write('vvedite chislo ');
readln(n);
if (n=1) or (n=0) then write( n, ' ne sostavnoe i ne ');
for a:=2 to n div 2 do
if n mod a=0 then k:=k+1;
if k=0 then write('prostoe')
else writeln('sostovnoe');
end.
Задача(вводится число с клавы, узнать простое или состовное)
Буду благодарна
Гость
Ответ(ы) на вопрос:
Гостьvar a,n,k: integer;
begin
write('vvedite chislo ');
readln(n);
if (n=1) or (n=0) then write( n, ' ne sostavnoe i ne ');
a:=2;
while a<=n div 2 do
begin
if n mod a=0 then k:=k+1;
a:=a+1;
end;
if k=0 then write('prostoe')
else writeln('sostovnoe');
end.
P.S. Благодарность не помешает.
Не нашли ответ?
Похожие вопросы