деление без остатка

[DIMA1605]

Здравствуйте! Пытаюсь создать на Delphi простенькую игру "Развивай свой интелект". Познакомился с этим языком программирования недавно поэтому есть некотрые вопросы. У меня есть 3 случайных числа: a, b, c. У меня на получается сделать так, чтобы при делении числа а на число b получалось целое число без остатка. Как сделать чтобы а делилось b без остатка?

[Stilet]

a div b дает деление без остатка. В случае с целыми
В случае с вещественными можно так: trunc(a) div trunc(b)

[DIMA1605]

Да. У меня такая ситуация: случайно берутся 2 числа(a и b). Если a не делится на b, то надо заменить или а, или b, или оба числа. Я делал так:
...
c:= a/b;
if tranc(c) <> 0 then
repeat
......;
until tranc(c) = 0
else
...........


На месте второго многоточия я не знаю что поставить. Я пробовал поставить туда вот это: а:= а+1; но при запуске программы она зависала. Не могу додуматься как решить эту проблему.

[Stilet]

Если a не делится на b

Не бывает числа, которое не может делиться на другое число.

[Serge_Bliznykov]

Сообщение от Stilet

Не бывает числа, которое не может делиться на другое число.

Ага. Даже простые числа делятся без остатка на единицу и на самих себя!

Впрочем, абсолютно не ясно, какую задачу изначально решает TC...

[DIMA1605]

Поправка: если а не делится на b без остатка.

[Mad_Cat]

var a,b:INTEGER;
...................
if a mod b = 0{если а делится на б без остатка} then{чего то там делаем}
else {если а не делится на б без остатка} {чего то другое там делаем}