Впакете лежат фрукты. все кроме двух персиков, дух яблок, двух груш. сколько фруктов в пакете ии каких?

Всего  фруктов = ф персики п=ф-2  т.е. все кроме двух яблоки я=ф-2    т.е. все кроме двух груши  г=ф-2  т.е.  все  кроме  двух ф= п+я+г=(ф-2)+(ф-2)+(ф-2) ф=3ф-6 2ф=6 ф=3   получаем:   всего три фрукта. 1 персик, 1 яблоко и 1 груша

Program z12; var x, y, s: integer;       // s - сумма, х и у - числа begin writeln (x, y); if x> y then           begin           s: = x+y;           writeln (s);           end      // я использую begin-end ибо два действия после then. кстати, если вдруг программа выдаст ошибку на этой строчке, то попробуй поставить вот это ; (я уже не помню, надо оно или нет) else s: = x*y; writeln (s); end.

Сначала должна быть решена . очевидно, что круг войдет в прямоугольник если его диаметр d будет меньше, чем меньшая из сторон этого прямоугольника min(a,b). вот и все решение. по этому решению составляем алгоритм: 1. ввести a, b, d 2. найти m - минимум (a,b) 3. если d< m, то вывести сообщение "войдет", иначе вывести сообщение "не войдет". 4. завершить работу. осталось написать программу. 1. современное решение // pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin   var (a,b,d): =readreal3('введите через пробел a,b,d: ');   var m: =min(a,b);   if d< m then writeln('войдет')   else writeln('не войдет') end. пример введите через пробел a,b,d: 14.5 11 10.6 войдет 2. "школьный" вариант - так писали наши отцы и деды var   a,b,d,m: real; begin   write('введите через пробел a,b,d: ');   read(a,b,d);   if a< b then m: =a   else m: =b;   if d< m then writeln('войдет')   else writeln('не войдет') end.