Буду . дан массив из n слов произвольной длины (длина слова не превышает 80 символов). символами могут быть только заглавные латинские буквы. найти и вывести все гласные буквы (без повторений), которые встретились в двух самых длинных словах.
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin var n:=ReadlnInteger('Количество слов в массиве:'); var a:=ReadArrString('Введите слова, каждое с новой строки:',n); var s:=a.Select(w->(w,w.Length)); var lm:=s.Max(t->t[1]); s.Where(t->t[1]=lm).Take(2).Select(t->t[0]).JoinIntoString('') .Where(c->c in 'AEIOUY').Distinct.Println end.
Все задачи однотипные, нужно знать понятия глубины цвета и как расчитывается объём для растрового изображения. 1.всего пикселей 128*128= 2^14(2 в 14-ой степени) так как 32 цвет, то один символ кодируется 5 битами (log2(32), если бы было 33 цвета то уже бы потребовалось 6 бит, так как 5 бы не хватило). Нам нужно в килобайтах значит нужно разделить на 2^13 (т.к. в 1 кбайте 2^13 бит)
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadlnInteger('Количество слов в массиве:');
var a:=ReadArrString('Введите слова, каждое с новой строки:',n);
var s:=a.Select(w->(w,w.Length));
var lm:=s.Max(t->t[1]);
s.Where(t->t[1]=lm).Take(2).Select(t->t[0]).JoinIntoString('')
.Where(c->c in 'AEIOUY').Distinct.Println
end.