Вопрос по информатике:
Замените for на while, чтобы алгоритм работал также:
program Prostoe;
var i,N,k: integer;
begin
write('введите число: ');
readln(N);
k:=0;
for i:=2 to N div 2 do
if N mod i =0 then k:=k+1;
if k=0 then write('простое')
else writeln('не простое');
readln;
end.
- 20.10.2017 02:44
- Информатика
- remove_red_eye 13009
- thumb_up 12
Ответы и объяснения 1
Вообщем объясню в крациях по понятному мне языку -
i = 0
while i <= 10 do
--tut
end
Под это подстрой свой скрипт.
- 21.10.2017 08:30
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.