Как исправить for на цикл while? var n,k,i,t: integer; f: text; beginassign (f,'f1.txt'); rewrite (f); readln (n); for i: =2 to n…

Question

55

Как исправить for на цикл while? var n,k,i,t: integer; f: text; beginassign (f,'f1.txt'); rewrite (f); readln (n); for i: =2 to n do begin t: =0; for k: =2 to n do if i mod k=0 then t: =t+1; if t=1 then write (f,i: 3); end; close (f); end.

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

ответить

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

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

kolkanaf · Accepted Answer

36

kolkanaf

06 февраля 2023

После readln (n); пишем: i: =2; while i <= n do begint: =0; i: =i+1; end; k: =2; while k <= n do beginif i mod k=0 then t: =t+1; if t=1 then write (f,i: 3); k: =k+1; end; должно работать) вот только я не понял полностью что эта прога делает)

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

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

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

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