Дано 2х значное число определить четность или не четность первого числа Если x больше 30 то вывести перелет Ввести число; есл оно принадлежит интервалу от 20-30 то вывести попал Если 0-19 недолет Меньше 0 не бей по своим
печатная машина может показаться совершенно безвредной, но иногда она может оказаться не в пользу вас или вашего бизнеса, поскольку не обеспечивает оптимального качества печати при необходимости больше всего. если принтер canon не подключен к вашему устройству или беспроводной сети (если принтер беспроводной), он не может печатать. итак, вам нужно сразу создать соответствующую настройку беспроводного принтера canon. если вам нужна дополнительная по этому поводу, то вы можете связаться с опытными ценителями. для этого вам просто нужно позвонить по бесплатному номеру и соединиться с ними по телефону.
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016 begin var a:array[1..20] of integer; Randomize; for var i:=1 to 20 do a[i]:=Random(-50,50); a.Println; var b:=Range(2,20,2).Select(i->a[i]); Writeln('Элементы с четными индексами по возрастанию'); b.Sorted.Println; Writeln('Элементы с четными индексами по убыванию'); b.SortedDescending.Println; end.
Тестовое решение: -15 46 -34 -3 43 16 -17 -28 -19 12 -28 -11 48 -12 -1 33 -37 9 6 -40 Элементы с четными индексами по возрастанию -40 -28 -12 -11 -3 9 12 16 33 46 Элементы с четными индексами по убыванию 46 33 16 12 9 -3 -11 -12 -28 -40
печатная машина может показаться совершенно безвредной, но иногда она может оказаться не в пользу вас или вашего бизнеса, поскольку не обеспечивает оптимального качества печати при необходимости больше всего. если принтер canon не подключен к вашему устройству или беспроводной сети (если принтер беспроводной), он не может печатать. итак, вам нужно сразу создать соответствующую настройку беспроводного принтера canon. если вам нужна дополнительная по этому поводу, то вы можете связаться с опытными ценителями. для этого вам просто нужно позвонить по бесплатному номеру и соединиться с ними по телефону.
begin
var a:array[1..20] of integer;
Randomize;
for var i:=1 to 20 do a[i]:=Random(-50,50); a.Println;
var b:=Range(2,20,2).Select(i->a[i]);
Writeln('Элементы с четными индексами по возрастанию');
b.Sorted.Println;
Writeln('Элементы с четными индексами по убыванию');
b.SortedDescending.Println;
end.
Тестовое решение:
-15 46 -34 -3 43 16 -17 -28 -19 12 -28 -11 48 -12 -1 33 -37 9 6 -40
Элементы с четными индексами по возрастанию
-40 -28 -12 -11 -3 9 12 16 33 46
Элементы с четными индексами по убыванию
46 33 16 12 9 -3 -11 -12 -28 -40