Ребяяят,нужна помощь,очень срочно Сомневаюсь в правильности своих решений Помогите!!!:)

Question

Ребяяят,нужна помощь,очень срочно
Сомневаюсь в правильности своих решений
Помогите!!!:)

---

Comments

Странно

---

2519 получилось в программе

---

Да,наименьшее значение 2519

---

Все остатки олучаются проверил

---

var i,j:longint; f:boolean;begin i:=11; f:=false; while (not f) do begin j:=10; f:=true; while (f and (j>1)) do begin f:=((i mod j) = (j-1)); j:=j-1 end; if not f then i:=i+2 end; Writeln(i)end.

---

Спасибо,я все проверила,намудила просто с присваиванием.

---

Может, все-таки намудРила? )))

---

И это тоже ;D

---

Тогда - удачи)

---

Спасибо ^^

Answer 1

0,875=7/8
пример в паскале:
var
  i,x,k:integer;
begin
 for x:=1 to 10000 do
  begin
  k:=0;
  for i:=10 downto 2 do
   begin
   if (x mod i=i-1) then k:=k+1;
   end;
   if k=9 then  writeln('Полученное число:',x);
  end;
end.