;) с .надо сделать такую же,только на тему while грубо - вопрос №2122353 от sirghost743 23.09.2022 20:06

Question

Информатика: ;) с .надо сделать такую же,только на тему 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. (вводится число с клавы, узнать простое или состовное) буду

sirghost743 · Answer

Var a,n,k: integer;beginwrite( 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. Благодарность не помешает....