Слогической по информатике, "шестеро друзей в ожидании электрички заскочили в буфет в котором: 1)маша купила себе тоже самое, что и егор 2)аня купила тоже, что саша, но не стала покупать шоколадные печенье 3)кирилл ел то же, что и наташа, но кроме луковых чипов 4)егора ел тоже, что и наташа, но в место бутеров с котлетки предпочел картоф чипы 5)саша ела тоже, что и наташа, но вместо молочного коктейля, купила лимонад из чего состоялся завтрак каждого?

Маша - картофельный чипсы, луковые чипсы,  молочный коктель егор - картофельные чипсы, луковые чипсы, молочный коктель аня - луковые чипсы, бутерброд с котлетой, лимонад саша - шоколадное печенье, луковые чипсы, бутерброд с котлетой,  лимонад кирилл - бутерброд с котлетой, молочный коктель наташа - луковые чипсы, бутерброд с котлетой, молочный коктель

Пишите процедуру - функцию нахождения минимума для двух чисел, например, minn(a,b: real) : real;   считываете три числа   a,b,c,   находите минимум из чисел a и b   minn(a,b), присваиваете найденное значение переменной d,   затем находите минимум среди чисел d и с   minn(d,c) - присваиваете найденное значение переменной d - это и будет результат на паскале: var a,b,c,d: real; function minn(a,b: real): real; begin   if a> b then minn: =b   else minn: =a; end; begin   write('числа a b c через пробел: ');     readln(a,b,c);   d: =min(a,b);   d: =min(d,c);   writeln('минимум:   ',d); end. ввод - вывод: числа a b c через пробел: 21 6 2  минимум:   2

Const cr=chr(13)+chr(10); var a,b: integer; c: char; begin writeln('введите 2 числа: '); readln(a,b); writeln('введите операцию: '); writeln('1) +',cr,'2) -',cr,'3) *',cr,'4) /'); readln(c); case c of   '+': writeln(a,' + ',b,' = ',a+b);   '-': writeln(a,' - ',b,' = ',a-b);   '*': writeln(a,' * ',b,' = ',a*b);   '/': writeln(a,' / ',b,' = ',a/b);   else writeln('ошибка ввода'); end; end. пример: введите 2 числа: 5 8 введите операцию: 1) + 2) - 3) * 4) / * 5 * 8 = 40