Вводится последовательность целых ненулевых чисел, 0 - конец последовательности. определить, сколько раз последовательность поменяет знак. ограничения! нельзя использовать условный оператор (if) и оператор выбора (case интерфейс программы должен выглядеть следующим образом: введите последовательность целых чисел через пробел. последним введите число нуль. -> -1 -2 3 6 -5 -7 8 9 0 последовательность меняет знак 3 раз(а).

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 Println('Введите последовательность целых чисел через пробел.');

 var n := ReadSeqIntegerWhile('Последним введите число нoль. ->', t -> t <> 0).

     Pairwise.Where(t -> t[0] * t[1] < 0).Count;

 Println($'Последовательность меняет знак {n} раз(а).')

end.

1) по заданному радиусу:

 

Program n1;
Uses CRT;
Var r,s: real;
begin
ClrScr;
writeln('Vvedite radius');
readln(r);
s:=r*r*pi;
Writeln('ploshad =',s:4:4);
readln
end.

 

2) по заданным сторонам:

Program n1;
Uses CRT;
Var a,b,s: real;
begin
ClrScr;
writeln('Vvedite storoni');
readln(a,b);
s:=a*b;
Writeln('ploshad =',s:4:4);
readln
end.

 

3) по заданной стороне

Program n1;
Uses CRT;
Var a,s: real;
begin
ClrScr;
writeln('Vvedite storony');
readln(a);
s:=a*a;
Writeln('ploshad =',s:4:4);
readln
end.

 

3) по одной стороне и высоте к ней:

Program n1;
Uses CRT;
Var a,b,s: real;
begin
ClrScr;
writeln('Vvedite storony i vysoty k nei');
readln(a,b);
s:=a*b;
Writeln('ploshad =',s:4:4);
readln
end.

ответ: козёл всегда перевозит масло.

РЕШЕНИЕ. Составим таблицу всех вариантов поклажи на животных:

 

№ варианта

А

Б

В

Г

Д

Е

Ж

З

Осёл

М

М

М

М

Ф

Ф

Ф

Ф

Козёл

М

М

Ф

Ф

М

М

Ф

Ф

Верблюд

М

Ф

М

Ф

М

Ф

М

Ф

 

По первому условию, если осёл перевозит финики, то козёл – масло. Это исключает варианты Ж и З.

По второму условию, если осёл перевозит масло, то верблюд – финики. Это исключает варианты А и В.

По третьему условию, если козёл перевозит финики, то верблюд – масло. Это исключает вариант Г.

 

№ варианта

Б

Д

Е

Осёл

М

Ф

Ф

Козёл

М

М

М

Верблюд

Ф

М

Ф

 

Проверяем оставшиеся варианты Б, Д, Е на наличие противоречий.

В варианте Б нет противоречий: и осёл, и козёл перевозят масло, а верблюд – финики. Это соответствует условию второму, где говорится: если осёл перевозит масло, то верблюд – финики. Условие первое сообщает: если на осле доставляют финики, то на козле – масло. Однако, если осёл не перевозит финики, то козёл должен перевозить либо финики, либо масло. Из условия третьего следует: если козёл тащит на себе финики, то верблюд – масло. Но если козёл не перевозит финики, то тогда верблюд может перевозить и финики, и масло.

В варианте Д нет противоречий: на осле доставляют финики, а на козле и верблюде – масло. По условию первому, если осёл тащит на себе финики, то козёл – масло. Раз осёл не перевозит масло, то, учитывая условие второе, верблюд может перевозить и масло, и финики. Раз козёл не перевозит финики, делаем вывод из условия третьего, что верблюд может перевозить и финики, и масло.

В варианте Е нет противоречий: и осёл, и верблюд перевозят финики, а козёл- масло. В условии первом говорится: если на осле доставляют финики, то на козле - масло. Т.к. осёл перевозит финики, а не масло, то делаем вывод из условия второго, что верблюд перевозит и то, и другое. Поскольку козёл перевозит масло, а не финики, точно так же можно предположить (исходя из условия третьего), что нет никакого противоречия в том, что верблюд перевозит финики.

Единственное животное, чья поклажа теперь известна наверняка, - козёл. Во всех трёх возможных ситуациях (Б,Д,Е) он перевозит только масло.