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

Question

64

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

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

ответить

в избранное ссылка

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

barkudu · Accepted Answer

96

barkudu

06 апреля 2023

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

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: