Нужно перевести программу с Ada в Pascal

@Капинус · Регистрация: 05.08.2017

жело переоценить роль шоколадных плиток для проведения традиционных олимпиад по программированию. Во-первых, питательное содержание шоколада значительно повышает количество гениальных идей у участников олимпиады, а геометрическая форма плитки – это, обычно, прямоугольник размером a × b квадратных частей 1 × 1, что в свою очередь напоминает модели многих задач.
Известны размеры шоколадной плитки a × b и количество участников олимпиады n. Членам жюри нужно определить, какого количества плиток шоколада достаточно, чтобы разломив их на единичные части, можно было бы разделить их поровну среди всех n участников олимпиады. То есть чтобы каждый получил бы одинаковое число квадратных долек 1 × 1.

Вход. Натуральные числа a, b, n. Все значения не превышают 100.

Выход. Вывести достаточное количество плиток шоколада.

Пример входа
3 5 6

Пример выхода
2

РЕШЕНИЕ
циклы

Анализ алгоритма
Каждая плитка шоколада содержит a * b единичных частей. Если cnt – достаточное количество плиток шоколада, то a * b * cnt должно нацело делиться на n. Значение cnt всегда существует, ищем его простым перебором: 1, 2, 3, … .

Реализация алгоритма
Читаем входные данные.

scanf("%d %d %d",&a,&b,&n);
s = a * b;

Искомое количество плиток шоколада cnt ищем простым перебором, начиная с 1.

cnt = 1;
while (a * b * cnt % n > 0)
cnt++;

Выводим ответ.

printf("%d\n",cnt);

Вот то, в чём я разобрался, но что то не работает:

Pascal

var a,b,n,k,s:longint;
begin
readln (a,b,n);
s:=a*b;
k:=1;
while (s*k div n)>0 do
begin
k:=k+1;
end;
writeln (k);
readln
end.

Спасибо

Добавлено через 56 минут
Уже решил.

@ZX Spectrum-128 · 14.10.2017, 13:04

Сообщение от Капинус

Уже решил.

Это замечательно!
Не могли бы Вы выложить Ваше решение? Что чрезвычайно смогло бы помочь иным страждущим.

@volvo · 14.10.2017, 13:08

Да, и заодно рассказать, где же здесь Ада-то. А то я искал-искал знакомые буквы, только Си да Паскаль нашел...

@Капинус · 16.10.2017, 18:33 **[ТС]**

А вот и решение. На e-olimp проходит 100%
Пользуйтесь на здоровье.

Pascal

type index=0..100;
var a,b,n:index;
s,k:word;
begin
readln (a,b,n);
s:=a*b;
k:=1;
while (s*k mod n)>0 do
k:=k+1;
writeln (k);
end.

@Соколиный глаз · 16.10.2017, 20:18

1. Абсолютно неясно зачем вводить лишний тип index.
2. И так же зачем писать без отступов.

Добавлено через 1 минуту
Есть стандартные типы - вот ими на здоровье и пользуйтесь. Если надо - создавайте свои (только там где это действительно надо). Не пытайтесь куча всего лишнего понапихать в программу, что совсем не нужно для решения данной задачи.

@ZX Spectrum-128 6582 / 4432 / 4722 Регистрация: 05.06.2014 Сообщений: 21,756
	14.10.2017, 13:04	2
	Сообщение от Капинус Уже решил. Это замечательно! Не могли бы Вы выложить Ваше решение? Что чрезвычайно смогло бы помочь иным страждущим. 0

@volvo Супер-модератор 30871 / 20192 / 7875 Регистрация: 22.10.2011 Сообщений: 35,053 Записей в блоге: 6
	14.10.2017, 13:08	3
	Да, и заодно рассказать, где же здесь Ада-то. А то я искал-искал знакомые буквы, только Си да Паскаль нашел... 0

@Соколиный глаз Alvin Seville 332 / 265 / 131 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 9
	16.10.2017, 20:18	5
	1. Абсолютно неясно зачем вводить лишний тип index. 2. И так же зачем писать без отступов. Добавлено через 1 минуту Есть стандартные типы - вот ими на здоровье и пользуйтесь. Если надо - создавайте свои (только там где это действительно надо). Не пытайтесь куча всего лишнего понапихать в программу, что совсем не нужно для решения данной задачи. 0

Опции темы