Var
i:integer;
a:array[4..9]of integer;
begin
writeln('Исходный массив:');
for i:=4 to 9 do
begin
a[i]:=random(1,10);
write(a[i]:4);
end;
for i:=4 to 9 do
if a[i]<5 then a[i]:=a[i]-1;
writeln;
writeln('Преобразованный массив:');
for i:=4 to 9 do
write(a[i]:4);
<span>end.</span>
Program math;var a: real;var i,n: integer;begina:=1;readln(n);for i:=1 to n dobegin a:=a+(1/i);end;writeln(a);end.
1- смотришь в интернете сеансы в кино
2-выбираешь нужное кино
3-идёшь за билетами
4-покупаешь билет для 2 ух человек
5-ждёшь сеанса!
Программа выводит сами числа и их квадраты
Program Square5;
Uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 5 do
writeln(i,' ',i*i );
readkey;
end.
Количество каналов =2 (стерео)
t=1,5 мин =1,5*60 с = 90 с
Н =36 КГц =36*1000 Гц=9*4*8*125 1/с=9*125*2^5 1/c = 1125*2^5 1/c
F=2 *8*90*1125*2^5 бит=1125*45*2^4*2^5 бит=50625*2^10 бит =
= 6328,125 Кбайт =6,2 Мбайта