If a>1000 then
b:=a*0.15;
a:=a -b;
write(a);
else
write('скидки нет');
End.
A = int(input("Введите первое число: "))
b = int(input("Введите второе число: "))
c = 0
for i in range(b):
c = c + a
print(c)
Var
a,b,c:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
WriteLn(a+b-c/(a-2*b));
<span>End.
</span>
Program n1;
var a: array[1..20] of integer;
i,sum: integer;
begin
randomize;
write('исходный массив: ');
sum:=0;
for i:=1 to 20 do
begin
a[i]:=random(21);
write(a[i],' ');
sum:=sum+a[i];
end;
writeln;
writeln('сумма: ',sum);
writeln('срзнач: ',sum/20);
end.
V=каналы (штуки) *частота (1/с) *битность (бит) *время (с)
V=2*44032*16*60 бит = 2^1 * 43*2^10 *2^4 *15*2^4=43*15*2^17 бит
(43*15*2^17)/2^23 Мбайт=(43*15)/2^6 Мбайт=645/64 Мбайт = 10,08 Мбайт