//PascalABC.NET 3.2 сборка 1318
begin
var ars:=readstring().Split;
var k:=readinteger();
ars.Where(x -> length(x)=k).Where(x -> x.where(y -> lowcase(y)='ы').count>1).Print;
end.
Пример ввода:
было быыть будет
5
Пример вывода:
быыть
16 градаций = 16 разных значений =
, значит для хранения 1 пикселя нам хватит 4 бита (0.5 байта). Всего имеем 100х500 точек (500 000 точек) размером 4 бита каждая. И всё это нам необходимо передать за 2 секунды со скоростью 2800 бит/c. Решение задачи сходится до решения равенства:
(500 000 точек * 4 бита) / 2 секунды = 2800 бит/c
2 000 000 бит / 2 секунды = 2800 бит/c
1 000 000 бит/c = 2800 бит/c
<em>Очевидно, что файл не может быть загружен за 2 сек, посколько за такое время его можно загрузить только со скоростью 2 000 000 бит/c.</em>
Ответ: Нет, не может.
Где отобразилась , может отобразилась в истории браузера в котором ты работал .
Не указано на каком языке программирования нужно, поэтому напишу уж на Паскале. Всё сделал так, чтобы было понятно, хоть и не так компактно.
Var x, y, z:integer;
Begin
Write('Введите числа X, Y и Z^: ');
Readln(x, y, z);
If x mod 5=0 then x:=x+1;
If y mod 5=0 then y:=y+1;
If z mod 5=0 then z:=z+1;
Writeln('Полученные в итоге числа(X, Y, Z):', x, ', ', y, ', ', z);
End.