Регистрация
irkaShpagina
10.05.2023 09:32
Информатика
Есть ответ 👍

Переделать программу из for в repeat. вот код: program prost; var i,n,s: integer; begin readln (n); s: =0; for i: =1 to n do if n mod i=0 then s: =s+i; if s=(n+1) then writeln('n-простое число') else writeln('n не является простым числом'); end.

291
353
Посмотреть ответы 2

Ответы на вопрос:

ArinaKappa
ArinaKappa
4,4(100 оценок)
Program prost; var  i,n,s: integer; begin readln (n); s: =0; i: =0; repeat i: =i+1; if n mod i=0  then s: =s+i; until i=n; if s=(n+1)then writeln('n-простое число') else writeln('n не является простым числом'); end.
DashaZakh
DashaZakh
4,6(97 оценок)
Https что это такое можете найти в викепедии.

Популярно: Информатика