вот одна задача, над которой я мучаюсь уже неделю, может кто поможет решить. Условие: даны два числа a и b. если а делится на b или b делится на а, то вывести 1, иначе - любое другое число. условные операторы и операторы цикла не использовать.

Nos92, без циклов то легко... А вот без условных операторов навскидку не знаю как Хотя может быть в паскале есть что-то эдакое, давно не юзал его

cHeRsAnYa1, если придумать какое-нить действие с числами...

Nos92, если операции min и max в паскале есть и не считаются условиями, или просто известно что a > b например, то я придумал решение

Nos92, я всё-таки решил её Нужно вывести значение выражения (a и b должны быть обязательно целого типа)
a / b b / a + b / a a / b - (a / b) * (b / a)
Думаю, можно упростить, но и так работает Проверил до 10000 по a и b. Не зависит от того, какое больше. Интересная задача

cHeRsAnYa1, да. числа должны быть целыми. но твоё выражение равно 1, при любых a и b.

до меня дошло, как ее решить:) uses crt; var a,b:integer; c:real; begin clrscr; readln(a,b); c:=(a mod b)*(b mod a); c:=c+1; writeln(c:2:0); end.

Nos92, var a,b,c,d,f: integer;
begin
readln(a);
readln(b);
c:=a mod b +1;
d:=b mod a +1;
f:=c*d-d+c;
write(f);
end.
Вроде работает Если нет, то будем дальше думать

EwGeN DoGG, так мое решение проще, и работает=)

EwGeN DoGG, по твоей программе, если ввести числа 2 и 4, то ответ будет 5

Nos92, ну да:)

Nos92, каюсь, перед тем как выкладывать, не потестил в паскале (юзал яву )))). Выражение правильное, только "/" надо заменить на "div".