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

elenka421    3   29.05.2019 00:30    0