<h2>PascalABC.NET 3.4.2, сборка 1979 (16.02.2019)</h2>
- begin
- var arr := SeqRandomInteger(ReadInteger('N = ')).ToArray;
- arr.Println;
- Writeln('< 50: ', arr.Where(x -> (x < 50)).Average:3:2);
- Writeln('>= 50: ', arr.Where(x -> (x >= 50)).Average:3:2);
- end.
Program n1;
var a: integer;
begin
write('введите номер месяца: ');
readln(a);
if( a>=1) and (a<3) then writeln('зима');
if(a>=3) and (a<6) then writeln('весна');
if (a>=6) and (a<9) then writeln('лето');
if(a>=9) and (a<13) then writeln('осень');
end.
НА ЛОДКУ СКОЛЬКО ПОМЕЩАЕТСЯ РЫЦАРЕЙ И ОРУЖЕНОСЦЕВ?
Не (А + В) = (не А) & (не В)
не А + (не А) & (не В) = не А
не (А & B) = не А + не В
B & (не А + не В) = (не А) & B
не ( (не А) & B ) = А + не B
F = не А + А + не В = 1 + не В = 1
Сначала отправить лодку с мальчиками, потом обратно отправить одного мальчика, отправить лодку со взрослым, потом отправить мальчика с того берег(да), отправить двух мальчиков, а дальше все как с начала:)