Var i, q, n : integer;
begin
read(q, n);
for i:=10 to 99 do
if ((i mod q = 0) and (i div 10 + i mod 10 = n)) then
write(i, ' ');
<span>end.</span>
D=48 000 Гц
i=32 бит
t= 4 мин = 240 сек
k=1 (моно)
V=D*k*I*t=48*2^10*2^5*2^8=48*2^23бит=48 Мбайт, приблизительно 44 Мбайт
Ответ: 1) 44 мбайт
ВТОРАЯ
var p,s:real;
i:integer;
begin
s:=2;
for i:=1 to 5 do
begin
p:=p+1/s;
s:=s+2;
end;
writeln('Р равно ',p:0:6);
end.
ПЕРВАЯ
var sum,x,i:integer;
begin
write('x= ');
read(x);
for i:=10 to 99 do
sum:=x+i+sum;
writeln('Сумма равна ',sum);
<span>end.</span>
1,2,3 и5
в пзу находятся:
-тестовые программы, проверяющие при каждом включении компьютера правильность работы его блоков;
- программы для управления основными периферийными устройствами -дисководом, монитором, клавиатурой;
<span>- информация о том, где на диске расположена операционная система</span>
1.
var
a : integer;
begin
read (a);
writeln (sqrt (a) * 4);
end.
2.
var
x : integer;
begin
read (x);
if (x mod 2 = 0) then writeln ('Четное')
else writeln ('Нечетное');
if (x mod 3 = 0) then writeln ('Делится на 3')
else writeln ('Не делится на 3');
end.