Скорее всего твой ноутбук просто слабый(Скинь в комментарии его характеристики)
1 задани это снимок
2 ( спасидо дяде)
Обра́тное число́ (обратное значение, обратная величина) — это число, на которое надо умножить данное число, чтобы получить единицу. Два таких числа называются взаимно обратными.
VAR
x:array[1..100] of real;
n,i,c:integer;
BEGIN
write('n=');
readln(n);
for i := 1 to n do begin
write('x[', i, ']=');
readln(x[ i ]);
end;
c:=0;
for i := 1 to n-1 do if x[ i ]*x[ i+1 ]=1 then c:=c+1;
writeln('c=',c);
readln;
END.
3 for i:=1 to n-1
for j:= i+1 do
if a<a[j]>; a:=a[j]; a[j]:=b end
4 не знаю
1)
var a, z, s: integer;
begin
write('<em>Введите число: </em>');
read(z);
a := z;
while a > 0 do
begin
s := s + a mod 10;
a := a div 10
end;
write('<em>Сумма цифр числа</em> ', z, ' = ', s)
end.
5. I = 4 мб (*1024*1024*8) 4* 2^23 бит
i = 8 бит
q = 44,1 кГц = (*1000) 44100Гц
I = i * q * t
значит t = 4*2^23 : (8 * 44100) = 4*2^20:44100= 2^20 : 11025≈ 190
Что значит из строки? Формулируйте лучше. Можно делать через обычный массив, примерно так
var