neef техника

Ответ от Александр Осипов[гуру]
🙂 Такой формулировки еще не слышал program p1; var k, b, c:real; begin Write(\'Ниф-ниф: \'); read(k); Write(\'Нуф-нуф: \'); read(b); Write(\'Наф-наф: \'); read(c); Write(\'меньше всего набрал \'); if (k<=b)AND(k<=c) then write(\'Ниф-ниф\'); if (b<=k)AND(b<=c) then write(\'Нуф-нуф\'); if (c<=b)AND(c<=k) then write(\'Наф-наф\'); end.