Var
i,n:integer;
IsOdd,IsEven:boolean;
begin
IsOdd:=false; IsEven:=false;
Write('Введите три числа: ');
for i:=1 to 3 do
begin
Read(n);
if n<>0 then
if (n mod 2)=0 then IsEven:=True
else IsOdd:=True
end;
Write('Среди введенных чисел ');
if IsOdd then Write('есть нечетное')
else Write('нет нечетных');
if IsEven then Write(' и есть четное')
else Write('и нет четных')
end.
<em><u>Тестовое решение:</u></em>
Введите три числа: 5 8 3
Среди введенных чисел есть нечетное и есть четное
Type student=record
familia:string;
nomer:byte;
yspevaemosti:array[1..5] of integer;
end;
1. Таблица
2. прямоугольная , многофункциональная
3. создается, размещается ,<span>применяют
4. </span>передают <span>информацию по заданным алгоритмам
5. </span><span>ведомость
Так , или я что-то не поняла ?
</span>
15! минимальное. вначале делаем прыжок с 1 на 3 тратим (3) энергии, затем с 3 на 4 тратим (9) энергии, дальше с 4 на 6 тратим (0) энерг, потом с 6 на 8 и тратим (3) энерг, в общей сложности 15. меньше не затратим!
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadlnInteger;
var a:=ReadArrInteger(n);
var k:=n div 2;
a:=(a[:k].OrderBy(t->t)+a[k:].OrderByDescending(t->t)).ToArray;
a.Println
end.
<u>Пример</u>
6
3 2 1 4 5 6
1 2 3 6 5 4