Ours
Нужно определить число сложное или простое с помощью Repeat
12 Янв 2011, 13:19DarveL
ну так в чем проблема.
Составь алгоритм на бумажке как определит является число простым или составным а потом реализуй.
В цикле будешь я так думаю проверять на делимость числа на другие.
Ethernet
Ours, значит не все написал, раз не работает. Что за логика? Как у ребенка...
22 Янв 2011, 0:42M0rbid
Ours, вариант влоб. не оптимальный. лишние итерации. но рабочий.
var n, i:integer;
var fail:boolean;
i = 2;
repeat
fail := (n mod i > 0);
inc(i);
until(fail or i >= n)
if(fail) write("Не ");
writeln("простое");
readln;
синтаксис может ругаца
