Задание №1
var
h, m: integer;
begin
<span> write(</span>'Введите часы:');
readln(h);
<span> write(</span>'Введите минуты:');
readln(m);
writeln('Время в секундах:', h * 3600 + m * 60);
end.
Word Art, шрифт, таблица и т.д
Частота дискретизации 44000 предполагает хранение 44000 отсчетов в секунду. При разрядности 16 бит = 16/8 = 2 байта, потребуется 44000·2 = 88000 байт для хранения информации за 1 секунду. А за минуту - в 60 раз больше, т.е. 60·88000 байт = 5280000 байт = 5280000/1024 Кбайт = 5156.25 Кбайт = 5156.25/1024 ≈ 5.035 Мбайт.
Тогда на диске объемом 700 Мбайт поместится примерно 700/5.035 = 139 минут записи.
Круг получается...............
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:integer;
Write('Введите границы интервала: '); Read(a,b);
if a>b then Swap(a,b); // страховка от злобных буратинок
var k:=Range(a,b).Where(m->sqr(sin(m))+cos(m*m)<0).Count;
Writeln('На интервале найдено отрицательных значений- ',k)
end.
<u>Пример</u>
Введите границы интервала: -3 10
На интервале найдено отрицательных значений- 4