PascalABC.NET 3.2 (сборка 1482 от 13.06.17)
Begin
Write('Количество отрицательных чисел: ',ReadSeqReal('Введите три числа:',3).Where(x->x<0).Count)
End.
№1 - вариант 2 (60 символов*16 бит=960 бит)
№2 - вариант 1 ( 66 символов*8 бит = 528 бит= 66 байт)
№3 - вариант 4 ( 67 символов*16 бит= 1072 бит)
№4 - вариант 3
(всего символов: 64*40*48= 122880, (122880*8 бит)/8/1024= 120 Кбайт)
№5 - вариант 2
(всего символов 64*40*64= 163840, (163840*16 бит)/8/1024= 320 Кбайт)
1. Определим количество пикселей в изображении.
300 ppi - это 300 pixel per inch, т.е .300 пикселей на один дюйм.
1 дюйм = 2.54 см, тогда
10 cм это 10/2.54 = 3.937 дюйма
15 см это 15/2.54 = 5.9055 дюйма
Следовательно потребуется 3.937×5.9055×300² ≈ 2 092 496 пикселей
2. Находим объем.
2 092 496 × 32 = 66 959 872 бит.
1 байт = 8 бит, 1 Кбайт = 1024 байта, 1 Мбайт = 1024 Кбайта
С учетом этого объем составит 66 959 972 / (8×1024²) ≈ 7.98 Мбайт
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)</span>
begin
var a:=ArrRandom(10,0,23); a.Println;
var t:=a.Where(t->t<=20).Where(t->t>18).Count;
Println('t=',t);
end.
Пример:
8 14 20 19 16 6 20 0 2 2
t= 3