Это PascalABC, но на должно сработать и на турбе)
var
s: string;
i: longint;
j: byte;
begin
writeln('Конец стиха - строка пустая');
repeat
for j := 1 to length(s) do
if (lowcase(s[j]) in ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я']) then
i := i + 1;
readln(s);
until s = '';
writeln(i, ' гласных букв');
end.
Ответ Г. так как можно догадаться логически , сначала промежуток между 65 и 33 = 32 , потом 16, потом 9 а потом уже и будет продолжение 1
22050 Гц - значит на каждую секунду приходится 22050 семплов(точек)
2 минуты это 120 секунд.
5,1мб поделим на 120 секунд = 44100 байт в секунду.
То есть каждый семпл занимает 2 байта.
Если это запись стерео - то 1 байт на канал (разрядность 8 бит), если моно то 2 байта - разрядность 16 бит
Var a,b,x:real;
begin
write('Введите a,b'); readln(a,b);
writeln('Уравнение: ',a,'x^2 + ',b,'x = 0');
x:=-b/a;
writeln('Корни уравнения: х=0 x=',x<span>);
</span>end.
Var a:longint;
Begin
Read(a);
If (a>=1)and(a<=100) then writeln('молодёжь')else
If (a>=101)and(a<=200) then writeln('взрослые')else
If (a>=200)and(a<=250) then writeln('пенсионеры')else
Writeln('-');
End.