Вывести единственное целое число - количество гостей-счастливчиков, которым достался торт

@ЖУК · Регистрация: 10.09.2014

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

"Как на наши именины испекли мы каравай..." прямоугольной формы со сторонам A и B. Именинник, отличающийся своими нестандартными поступками, решил угостить всех гостей этим пирогом... Но, что бы было позакрученней, он решил каждому гостю отрезать от пирога квадратный кусок, максимально возможных размеров. Понятно, что затея понравилась только первым в очереди за своим куском... Какое количество гостей именинник сможет угостить?
Входные данные:
Во входном файле в первой строке через пробел перечислены два целых числа: A и B (0 < A, B < 2000000000)

Выходные данные:
Вывести единственное целое число - количество гостей-счастливчиков, которым достался торт

Пример входного файла (input.txt):
2 4
Пример выходного файла (output.txt):
2
вот что написал выдает ошибку

Pascal
1
2
3
4
5
6
7
var
a,b,g:integer;
begin
readln(a,b);
g:=b div a;
writeln(g);
end.

@Puporev · 10.09.2014, 12:19

алгоритм такой

Pascal
1
2
3
4
5
6
7
k:=1;
while a<> b do
 begin
  if a>b then a:=a-b
  else b:=b-a;
  k:=k+1;
 end;

@ЖУК · 10.09.2014, 12:24 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
a,b,k:integer;
begin
read(a,b);
k:=1;
while a<> b do
 begin
  if a>b then a:=a-b
  else b:=b-a;
  k:=k+1;
 end;
write(k);
end.

так ?

@Puporev · 10.09.2014, 12:27

Так сам проверь.

@ЖУК · 10.09.2014, 12:29 **[ТС]**

проверил один тест не проходит

@Puporev · 10.09.2014, 12:43

Так если посылаешь на проверочный сайт, то нужно код писать в соответствии с требованиями сайта. Я тебе дал работающий алгоритм, дальше твое дело. А то ума нет и все куда-то лезут..

Добавлено через 11 минут
Там наверное код нужен во Фрее Паскаль. И применять тип int64

Pascal
1
2
var
a,b,k:int64;

@ЖУК · 10.09.2014, 12:45 **[ТС]**

пишит Превышение лимита по времени выполнения теста

@Puporev · 10.09.2014, 12:50

Я тебе написал что тип нужно сменить, там числа до 2000000000

@ЖУК · 10.09.2014, 12:55 **[ТС]**

я сменил и оно всеровно пишет

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
a,b,k:int64;
begin
read(a,b);
k:=1;
while a<> b do
 begin
  if a>b then a:=a-b
  else b:=b-a;
  k:=k+1;
 end;
write(k);
end.

@Puporev · 10.09.2014, 12:59

Не знаю.

@ЖУК · 10.09.2014, 13:03 **[ТС]**

а может можно какоето полегче решение сделать ?

@Puporev · 10.09.2014, 13:13

Сделай.

Добавлено через 7 минут
Попробуй так

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
read(a,b);
k:=0;
while (a>1)and(b>1) do
 begin
  if a>b then
   begin
    k:=k+a div b;
    a:=a mod b
   end
  else
   begin
    k:=k+b div a;
    b:=b mod a
   end;
 end;
write(k);

@ЖУК · 10.09.2014, 13:17 **[ТС]**

так пишет ещё хуже

@Puporev · 10.09.2014, 13:23

У меня в первом коде при a=2000000000 b=3 зависало, а при втором коде нет. Пока больше идей нет.

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	10.09.2014, 12:27
	Так сам проверь. 0

@ЖУК 0 / 0 / 0 Регистрация: 10.09.2014 Сообщений: 49
	10.09.2014, 12:29 [ТС]
	проверил один тест не проходит 0

@ЖУК 0 / 0 / 0 Регистрация: 10.09.2014 Сообщений: 49
	10.09.2014, 12:45 [ТС]
	пишит Превышение лимита по времени выполнения теста 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	10.09.2014, 12:50
	Я тебе написал что тип нужно сменить, там числа до 2000000000 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	10.09.2014, 12:59
	Не знаю. 0

@ЖУК 0 / 0 / 0 Регистрация: 10.09.2014 Сообщений: 49
	10.09.2014, 13:03 [ТС]
	а может можно какоето полегче решение сделать ? 0

@ЖУК 0 / 0 / 0 Регистрация: 10.09.2014 Сообщений: 49
	10.09.2014, 13:17 [ТС]
	так пишет ещё хуже 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	10.09.2014, 13:23
	У меня в первом коде при a=2000000000 b=3 зависало, а при втором коде нет. Пока больше идей нет. 0