64

ПриветПомогите пжл с задачей. Надо сделать такую же, только на тему "while" грубо…

06 марта 2023

ПриветПомогите пжл с задачей. Надо сделать такую же, только на тему "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 '); for a: =2 to n div 2 doif n mod a=0 then k: =k+1; if k=0 then write ('prostoe') else writeln ('sostovnoe'); end. Задача (вводится число с клавы, узнать простое или состовное) Буду благодарна

категория: информатика

96

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. Благодарность не помешает.

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...