Напишите программу, которая считывает слово, затем выводит: «[это слово] ? Конечно, помню, ведь мы проходили это на занятии!». Пример

Ввод Вывод

print print ? Конечно, помню, ведь мы проходили это на занятии!

2)Напишите программу, которая считывает с клавиатуры одно за другим два целых числа и выводит их сумму.

Пример 1

Ввод Вывод

3 8

5

Пример 2

Ввод Вывод

34234324 86588760

52354436

4,37  ~  4

Объяснение:

Так как частота дискретизации 16 кГц, то за одну секунду запоминается 16000 значений сигнала.

 

Глубина кодирования 24 бита, т. е. 3 байта.

Т. к. запись четврёхканальная, объём памяти, необходимый для хранения данных одного канала, умножается на 4, поэтому, так как потребовалось 48 Мбайт, один канал занимает:

12 Мбайт или 12·220 байт.

Чтобы найти время, в течение которого проводилась запись, необходимо разделить найденный информационный объем на глубину кодирования и на частоту дискретизации:

(12 * 2^20) / (16000 * 3) = 2^18 / 1000 = 262,144 сек.

Тем самым, время записи примерно равно:

4,37 минуты, что близко к 4 минутам.

№1                                        

program raf105;

var a,otr: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

repeat

 readln(a);

 if a<0

   then otr+= 1;

until a = 0;

writeln('Отрицательных чисел: ',otr);

end.

№2                                        

program raf105;

var a,sum: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

repeat

 readln(a);

 if a>0

   then sum+= a;

until a = 0;

writeln('Сумма положительных чисел: ',sum);

end.

                                              PascalABC 3.4.2