Не понятка с програмкой

[Иварунька]

По сути программа очень простая, даже нету смысла описывать что она должна делать, но всё равно выдаёт не правильный результат.
Спасибо)

program divider;
uses crt;
var N: integer;
begin
clrscr;
writeln('введите любое целое число= ');
readln(N);

while ((N mod 5)<>0) and ((N mod 7)<>0)
do

N:=N+1;
writeln('Ближаёшее число которое делиться на 5 и 7 без остатка= ',N);
readln;

end.

[DiemonStar]

while ((N mod 5)<>0) and ((N mod 7)<>0)
do

N:=N+1;

поменяйте на

while ((N mod 5)<>0) or ((N mod 7)<>0) do
  N:=N+1;

но, с учётом того, что 5 и 7 - простые числа, то проще находить N mod 35

или вообще так:

N := Round(N / 35) * 35;

и не нужны никакие циклы...

[Иварунька]

Пасибо, ответ совпал, но мне не доходит почему, должны же 2 условия совпадать(то есть число должно поделиться на 5 и 7 ) а оператор or предусматривает завершение цикла если одно условие выполняется(или одно или другое)??

[DiemonStar]

а оператор or предусматривает завершение цикла если одно условие выполняется(или одно или другое)??

Изучайте операторы. Конструкция While ... do предусматривает работу цикла пока условие выполняется.

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

и, кстати, условие задачи было бы не лишним: ваше решение подразумевает ближайшее число, большее того, которое было введено

Например: ввели 36; по-логике, ближайшее число = 35, а ваш алгоритм выдаст 70.

И какое из решений правильное без условия абсолютно непонятно...