program raf105;
var
s:string;
x:boolean;
i:integer;
begin
write('Введите слово: ');
readln(s);
s:= lowercase(s);
for i:=2 to length(s) do
if not x
then x:= s[i] = s[i-1];
if x
then writeln('В слове есть две подряд идущие, одинаковые буквы')
else writeln('В слове нет двух подряд идущих, одинаковых букв');
end.
<u><em>Язык PascalABC</em></u>
Var
i,n:integer;
begin
write('Write n: '); readln(n);
for i:=10 to 99 do
if (i mod n=0) or ((i div 10=n) or (i mod 10=n))
then writeln(i,' ');
readln
end.
N это элементы массива
Раньше с паскалем не работал, но думаю что верно
for i:=1 to n then begin
if a [i] mod 2 = 0 then
writeIn(a[i]);
end
end;
A) Объем звукозаписи (в битах) можно рассчитать умножив частоту дискретизации(Гц) на глубину кодирования (бит) и на время (в сек.)
24000*16*(7*60)= 161280000 бит
161280000/8/1024/1024 = 19,23 МБайт
Ответ: 19,23 Мбайт
Б) Определим глубину кодирования i по формуле:
N=2^i, где N - количесвто уровней громкости
16177216=2^i
i=24 бит
Тогда объем звукозаписи рассчитаем перемножив частоту дискретизации, глубину кодирования и время.
41000*24*(3*60)= 177120000 бит
177120000/8/1024/1024= 21,11 Мбайт
Ответ: 21,11 Мбайт
37 div 10 = 3
58 div 10 = 5
125 div 10 = 12
234 div 10 = 23
873 div 100 = 8
3985 div 1000 = 3
37 mod 10 = 7
58 mod 10 = 8
125 mod 10 = 5
234 mod 10 = 4
873 mod 100 = 73
3985 mod 1000 = 985
