Сколько яиц могло быть в корзине?

@Flexoo · Регистрация: 21.01.2018

Author24 — интернет-сервис помощи студентам

Необxодимо решить задачу чикличским оператором repeat until

Женщина шла на базар и разбила яйца, лежавшие у неё в
корзине. Она сказала, что не знает, сколько яиц у неё было, но
когда она брала по 2, 3, 4, 5 и 6 яиц, то в конце в корзине всегда
оставалось одно яйцо. Когда же она брала по 7 яиц, то ничего не
оставалось. Сколько яиц могло быть в корзине?

@Puporev · 01.08.2018, 16:01

Посмотрите похожие темы внизу страницы.

@Flexoo · 01.08.2018, 16:17 **[ТС]**

Спасибо, но нужно только с использованием оператора repeat...until

@Puporev · 01.08.2018, 16:26

Ну там есть же там код с while do, переделали бы.
https://www.cyberforum.ru/post3686574.htm

Pascal

var x,i,k: integer;
    b: boolean;
begin
b:=false;
x:=0;
repeat
 inc(x);
  k:=0;
  for i:=2 to 6 do
  if x mod i=1 then inc(k);
  if (x mod 7=0) and (k=5) then b:=true;
until b;
writeln('Минимальное количество яиц=',x);
end.

Добавлено через 4 минуты
Можно короче, используя приведенный здесь алгоритм
https://www.cyberforum.ru/post3677928.html

Pascal

var x: integer;
    b: boolean;
begin
b:=false;
x:=1;
repeat
 inc(x,60);
 if x mod 7=0 then b:=true;
until b;
writeln('Минимальное количество яиц=',x);
end.

@Cyborg Drone · 02.08.2018, 00:49

Можно малость сократить:

Pascal

var 
  x: integer;
 
begin
  x := 1;
  repeat inc(x, 60) until x mod 7 = 0;
  writeln('Минимальное количество яиц = ', x)
end.

@Flexoo 0 / 0 / 0 Регистрация: 21.01.2018 Сообщений: 4
		1
	Сколько яиц могло быть в корзине? 01.08.2018, 15:30. Показов 2261. Ответов 4 Метки нет (Все метки) Необxодимо решить задачу чикличским оператором repeat until Женщина шла на базар и разбила яйца, лежавшие у неё в корзине. Она сказала, что не знает, сколько яиц у неё было, но когда она брала по 2, 3, 4, 5 и 6 яиц, то в конце в корзине всегда оставалось одно яйцо. Когда же она брала по 7 яиц, то ничего не оставалось. Сколько яиц могло быть в корзине? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	01.08.2018, 16:01	2
	Посмотрите похожие темы внизу страницы. 1

@Flexoo 0 / 0 / 0 Регистрация: 21.01.2018 Сообщений: 4
	01.08.2018, 16:17 [ТС]	3
	Спасибо, но нужно только с использованием оператора repeat...until 0

	02.08.2018, 00:49

Сколько яиц могло быть в корзине?

Решение