М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
1FreeMad1
1FreeMad1
08.01.2022 16:10 •  Информатика

Задание 1. Выберите основные данные, которые относятся к языку программированияPascal.Выберите несколько из 5 вариантов ответа:
1) Назван в честь Блеза Бейсика.
2) Появился в 1965 г.
3) Наибольшее рас получил с появлением микроЭВМ и персональных компьютеров.
4) Был создан в 1968 г.
5) Создатель языка – Никлаус Вирт.

Задание 2.Что может входить в алфавит языка Pascal?Выберите несколько из 6 вариантов ответа:
1) Русские прописные буквы. 4) Русские строчные буквы.
2) Латинские строчные буквы. 5) Специальные символы.
3) Арабские цифры. 6) Латинские прописные буквы.

Задание 3.Из каких элементов состоит структура программы языка Pascal?
Выберите несколько из 5 вариантов ответа:
1) Тело программы. 4) Точка.
2) Раздел описания. 5) Раздел операторов.
3) Заголовок программы.

👇
Открыть все ответы
Ответ:
Ķрičтina
Ķрičтina
08.01.2022
1. Частота дискретизации 44.1 кГц означает, что в секунду надо запомнить 44100 значений уровня сигнала.
2. Для кодирования одного значения требуется 20 бит, поэтому для кодирования всех значений в секунду требуется 44100×20 = 882000 бит
3. За 40 секунд потребуется объем в 40 раз больше:
40×882000 = 35280000 бит = 35280000/8 = 4410000 байт = 4410000/1024 ≈ 4306.64 Кбайт =  4306.64/1024 ≈ 4.2 Мбайт
4. Это расчет для одного канала. В стереофайле два канала, поэтому результат нужно удвоить, получая 8.4 Мбайт.
4,8(55 оценок)
Ответ:
krivisasha4
krivisasha4
08.01.2022
Pascal
2)program crazyfrog;
uses crt;
var a: array [1..15] of integer; i,min: integer;
begin
for i:=1 to 15 do begin a[i]:=-30+random(40); writeln('случайные числа: ',a[i]);end;
a[1]:=min;
for i:=2 to 15 do begin if(a[i]>0) then begin  if(a[i]<min) then min:=a[i] ;end;end;
writeln('min= ',min);
end.
3)program warcraft;
uses crt;
var a: array [1..10] of integer; i: integer;
begin
s:=0;
writeln('случайные числа');
for i:=1 to 10 do begin a[i]:=9+random(90); write(' ',a[i]);end;
for i:=1 to 10 do begin if(a[i] mod 2 <> 0) then s:=s+a[i];end;
writeln('сумма нечет чисел= ',s);
end.
4,6(49 оценок)
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ