Ваня договорился с бабушкой ей выбрать новый ноутбук. У бабушки высокие требования — она работает дизайнером, пользуется современными графическими пакетами и иногда играет с внуками в игры по сети. Вот что бабушка написала Ване: (картинка сверху)
Выбери неподходящие ноутбуки Нажми, чтобы открыть или закрыть требования к компьютеру Вот варианты ноутбуков, которые Ваня подобрал в интернет-магазине. Сначала отбросим те, которые не подходят по размеру. Выбери варианты, у которых слишком большая диагональ.
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadArrReal(12).Select(x->real(x)).ToArray; Writeln('Тип массива ',a.GetType); Writeln('Максимальное нечетное: ',a.Where(x->Trunc(x).IsOdd).Max) end.
Пример 13 10 22 31 22 6 18 5 26 3 8 24 Тип массива System.Double[] Максимальное нечетное: 31
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите версию!
begin var c:=new Char[10]; for var i:=0 to 9 do c[i]:=ReadlnChar; var c1:=c[9]; var c2:=c[8]; c:=c.Where(a->(a<>c1) and (a<>c2)).ToArray; c.Println(',') end.
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=106.Step(6).Take(15).ToArray; a.Println
end.
Результат
106 112 118 124 130 136 142 148 154 160 166 172 178 184 190
2. Древнее школьное решение "в лоб"
var
a:array[1..15] of integer;
i,k:integer;
begin
k:=106;
for i:=1 to 15 do begin
a[i]:=k;
k:=k+6;
Write(a[i],' ')
end;
Writeln
end.
3. Усовершенствованное древнее школьное решение.
Последовательность - арифметическая прогрессия с первым членом a₁=106 и разностью d=6.
Тогда
var
a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 15 do begin
a[i]:=100+6*i;
Write(a[i],' ')
end;
Writeln
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrReal(12).Select(x->real(x)).ToArray;
Writeln('Тип массива ',a.GetType);
Writeln('Максимальное нечетное: ',a.Where(x->Trunc(x).IsOdd).Max)
end.
Пример
13 10 22 31 22 6 18 5 26 3 8 24
Тип массива System.Double[]
Максимальное нечетное: 31
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var c:=new Char[10];
for var i:=0 to 9 do c[i]:=ReadlnChar;
var c1:=c[9];
var c2:=c[8];
c:=c.Where(a->(a<>c1) and (a<>c2)).ToArray; c.Println(',')
end.
Пример
а
п
е
л
ь
с
и
н
е
ь
а,п,л,с,и,н