<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(100,-50,50); a.Println;
Writeln('Чисел, больших 10: ',a.Where(t->t>10).Count)
end.
<u>Пример</u>
-25 42 -38 -19 -8 -27 -41 -17 19 27 43 -1 -1 -36 29 47 -31 -42 -39 36 15 -3 32 37 -26 9 -19 23 -34 -20 -48 -43 -47 43 20 -46 9 -36 39 -50 -13 -45 19 -39 -24 -14 -25 -39 32 -23 16 2 -36 -5 25 28 -41 -24 -43 34 42 -14 -34 -12 24 36 -5 6 -6 24 -13 -46 -31 -39 -2 9 28 21 11 38 -16 -30 42 39 14 1 43 8 -32 43 45 -17 -43 -45 -41 -50 39 -20 -12 -10
Чисел, больших 10: 35
Uses GraphABC;
begin
Rectangle(0, 0, 11, 11);
end.
Используя графический растровый редактор Paint создайте (ешь) рисунок:
размер 200х200 пикселей; формат 24-разрядный рисунок (*.bmp). Внешний вид рисунка показан ниже. jpeg В тетради создаете таблицу: 24 разряда bmpjpgtifpng16 цветов bmp Определите размер рисунка в Кбайтах и занесите результат в таблицу. Введите размер рисунка в Кбайтах
1. Создаешь новый документ в параметрах выставляешь размер
2. вставляешь свой рисунок (копи-паст), - трансформируешь (подгоняешь размер)
3. берешь тетрадь и дальше по параметрам.
4. теперь при сохранении - бмп - 16 цветный бмп
5. сохраняешь.
<span>6. находишь сохраненное - смотришь скока весит кбайт - вносишь в таблицу</span>
Все в одной
=ЕСЛИ(A3 < -1; 1/A3; ЕСЛИ(ABS(A3)<=1; 1; EXP(A3-1)))
три отдельно
=ЕСЛИ(A3 < -1; 1/A3; "-")
=ЕСЛИ(ABS(A3)<=1; 1; "-")
=ЕСЛИ(A3> 1;EXP(A3-1); "-")
Все программы находятся в одном файле. Поэтому после проверки первой программы сначала закомментируй её, а потом раскомментируй другую и т. д.
Решение во вложении.
