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

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

Задать свой вопрос
Никитка Стрембицкий
Удивительно
Vasilij Trubanovskij
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.
Varvara Karepanova
Спасибо,я все проверила,намудила просто с присваиванием.
Валерия Мамонова
Может, все-таки намудРила? )))
Ангелина Батекина
И это тоже ;D
Danka Kirzhankov
Тогда - фортуны)
Суховрина Диана
Спасибо ^^
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт