Урок 3 задача 1 повышенная сложность. Задача 1484. Усложнённая., Pascal

Language: Layout:

{
Урок 3 задача 1 повышенная сложность. Задача 1484. Усложнённая.
На вход программе подаются три целых числа a, b и c, по модулю не превосходящие 10^6. 
Если a делится на b или b делится на c, или a делится на c, или c делится на a,
то требуется вывести 1, в противном случае - любое другое число.
Условный оператор использовать нельзя!
Входные данные целые числа a, b, c.
Выходные данные 1 или другое целое число.
Примеры
Входные данные: 2 8 4
Выходные данные: 1
Входные данные: 0 0 0
Выходные данные: 100
Входные данные: 5 0 0
Выходные данные: 1
}
var a, b, c, tmp1, tmp2, tmp3 : integer;
begin
    readln(a, b, c);
    tmp1 := a + 1 div (abs(a) + 1); // учитываем, что вводимое число a может быть = 0
    tmp2 := b + 1 div (abs(b) + 1);  // учитываем, что вводимое число b может быть = 0
    tmp3 := c + 1 div (abs(c) + 1);  // учитываем, что вводимое число c может быть = 0
    
    writeln ( 
    // выводим остаток от деления a на b и умножаем его на остаток от деления b на a и добавляем 1
    ( a mod tmp1 ) * ( b mod tmp2 ) * ( c mod tmp3 ) + 1 + 
    // если a и b и c одновременно = 0, то получаем 99
    99 * ( 1 div ( abs ( a ) + abs ( b ) + abs ( c ) + 1 ) ) );
    
    {Аналогично можно сделать вариант с тремя и более числами.}
end.

Show compiler warnings [ - ] Show input
Compilation time: 0.23 sec, absolute running time: 0.13 sec, cpu time: 0.06 sec, memory peak: 3 Mb, absolute service time: 0,44 sec