// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a:=ArrRandom(10,-99,99); a.Println
end.
<u><em>Тестовое решение</em></u>
-12 -89 55 66 41 -31 17 -25 -34 -71
1.
Var a,b,pr:integer;
Begin
pr:=1;
write('Вводите числа, когда закончите - введите 0. '); readln(a);
while (a<>0) do begin
if (a>0) and (a<10) then begin b:=b+1; pr:=pr*a; end; readln(a) end;
Writeln('Чисел, больше 0 и меньше 10: ',b,' их произведение:',pr);<span>end.
2.
Var a,b,c,i,sum,f:integer;
Begin
Write('Введите 10 двузначных чисел: '); repeat readln(a); until(a>=10) and (a<100);
for i:=1 to 10 do
begin
repeat </span>readln(a); until(a>=10) (a<100)
b:=a mod 10;
c:=a div 10;
sum:=b+c;
if (sum mod 2 = 0) then f:=f+1;
end;
Writeln('Кол-во цифр, удовлетворяющих условию: ',f);
end.
3.
Var a,b,c:integer;
Begin
write('Вводите целые положительные числа.');
repeat
readln(a);
b:=b+a;
c:=c+1;
until (b>100);
Writeln('Кол-во введёных чисел:',c,' их сумма:',b);
end.
Javascript:var X=parseFloat(prompt()),S=10,собрали=0;for(var год=0;год<5;год++){собрали+=X*10-2;X+=X*0.07;}alert(собрали);
<span>Выражение </span><span>2a(3+4a):2b(3a-4b)</span>, записанное в соответствии с правилами, принятыми в математике, в электронной таблице, имеет вид
2) 2*a*(3+4*a)/2*b*(3*a-4*b)
<span>Объем памяти для хранения данных 1 канала (моно) </span>
<span>I = f * b * t
</span>(для хранения информации о звуке длительностью t секунд, закодированном с частотой дискретизации f Гц и глубиной кодирования b бит требуется I<span> бит памяти)</span><span>
f = </span>20050 Гц
b = <span>24 бит
</span>t = 1,5 мин = 1,5 * 60 = 90 сек
I = 20050 * 24 * 90 = 43308000 бит
I = 43308000 бит = 43308000/8 = 5413500 байт = 5413500/1024 ≈ 5286,621 кбайт = 5286,621/1024 ≈ 5,2 Мбайт
I ≈ 5,2 Мбайт