ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Обмен\", Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
N, сч, отрицательных: ЦЕЛ;
УКАЗ
N := Приём.Число();
СОЗДАТЬ(массив, N);
отрицательных := 0;
ОТ сч := 0 ДО N - 1 ВЫП
массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 20)) - 10;
ЕСЛИ массив[сч] < 0 ТО УВЕЛИЧИТЬ(отрицательных) КОН
КОН;
Вывод.ЧЦел("^%d", отрицательных, 0, 0, 0)
КОН Задание.
1 дюйм = 2,54 см
15,24 см * 15,24 см = 6 дюймов * 6 дюймов
Количество точек сканированного изображения = 600*1200*6*6
Объем изображения = 600*1200*6*6*8 бит = 600*1200*6*6*8/8 байт = 600*1200*6*6/1024 Кбайт = 25312,5 Кбайт = 25312,5/1024 Мбайт ≈ 25 Мбайт
Во-первых: при первой скорости файл передается примерно за 2,7 секунды; при второй же - 1,2 секунды... Во-вторых, раз наш алфавит содержит более 32 букв, включая знаки, то следовательно, на каждую букву отводится 6 строк. Получается, либо на 32 буквы больше, либо на 1,25. Но первый выглядит пореальнее... Так что ответ: на 32 буквы больше.
Это действия:
1. 1024*20*8/1024/60=~2,7
2. 1024*20*8/2048/60=~1,2
3. 1024*20*8/80(т.к. 80 секунд)/64=32
Если что-то не правильно, не вините. В первый раз пишу))
Найдем значение а
а присвоено а-b×3
выполяем действие
60-(10×3)=30
значит
а:=30
b:=10
если а меньше б, с:=а-b, иначе(если а больше б) с:=b-a
мы видим, что а больше б, значит выполняем второе действие
с:=b-a
берем значение b, оно равно 10 и значение а, оно равно 30.
с:=10-30
с:=-20
ответ:-20
Ответ:
Если переводить всё вместе
5 сентября 2006 год = 000111100001010000001110001011110001101000001110001011100001111000001110
0010111000101101000011100010111100011011000011100010111100101111000011100
0101110000110100000111000101111000110010000111000101111001011110001010000
0110110001100100011001000111110001010000001110001011100001110000001110001
0111000101110000011100010111000011101
Объяснение:
