Sub Main()
Dim a(9) As Double
a(0) = (Math.PI + 0.03 * 10 ^ -3) / Math.Log(Math.Sqrt(15 * Math.E) - 0.2 * 10 ^ -4) + 10 ^ (4.2 - 0.67)
a(1) = 3.95 + (1 / 20) ^ 2 + 1 / 900
a(2) = (2.75 * 10 ^ 2) / Math.Sqrt(14.3 + Math.PI)
a(3) = 2 ^ (Math.Log(0.34 - 10 ^ 3) - (0.16 - 5.27) / 0.029)
a(4) = (Math.Sqrt(0.079 / 3.5 - 6.1 * 10 ^ -5) + 0.4) * (Math.E ^ (0.7 / 9 + 0.8) - 1.5)
a(5) = (Math.Sqrt(7.65) + 4.1 * 10 ^ -3) ^ 2 / Math.Log(3.17 ^ 2 + 3.752) - Math.Sqrt(1 / 0.46 - 0.9)
a(6) = Math.E ^ (Math.PI / 4) * Math.Log(3 * (17.8 ^ 2 - 0.139 * 10 ^ 2)) + 2.3 * 0.69 / 1.5
a(7) = 6.7 * (1 / (Math.PI + 5.04) + 10 ^ (0.198 * Math.Sqrt(3.2))) - 0.36 * 10 ^ -3
a(8) = (10 ^ (1 / 3) - Math.Log(4.25 + 1 / 7) + 0.89 * 10 ^ -4 * 1.2) / (Math.E + 6)
a(9) = 0.09 * (Math.Log(0.41 * 10 ^ -3 + Math.Sqrt(0.26 * 10 ^ -5)) + Math.Sqrt(5.68 - Math.Sqrt(3)) - Math.E ^ (3 * 7))
Console.WriteLine(a(0))
Console.WriteLine(a(1))
Console.WriteLine(a(2))
Console.WriteLine(a(3))
Console.WriteLine(a(4))
Console.WriteLine(a(5))
Console.WriteLine(a(6))
Console.WriteLine(a(7))
Console.WriteLine(a(8))
Console.WriteLine(a(9))
Console.Read()
<span> End Sub
Знаю, можно было вывод сделать циклом, но у меня не получилось ._.</span>
10000, 1*2 в 4 степени, 16 в 10тичной
<span>var a: array[1..3,1..4] of integer;</span>
<span> i,j,s: integer;
</span><span>begin
</span><span> for i:=1 to 3 do
</span><span> begin
</span><span> write('строка ',i,': ');
</span><span> for j:=1 to 4 do read(a[i,j]);
</span><span> end;
</span><span>// вывод массива на экран
</span><span> writeln('массив а по строкам:');
</span><span> for i:=1 to 3 do
</span><span> begin
</span><span> for j:=1 to 4 do write(a[i,j]:4);
</span><span> writeln;
</span><span> end;
</span><span>// суммы элементов по строкам
</span><span> for i:=1 to 3 do
</span><span> begin
</span><span> s:=0;
</span><span> for j:=1 to 4 do s:=s+a[i,j];
</span><span> writeln('сумма элементов строки ',i,': ',s);
</span><span> end;
</span><span>end.
ввод - вывод
</span>строка 1: 10 11 12 13
<span>строка 2: 14 15 16 17
</span><span>строка 3: 18 19 20 21
</span><span>массив а по строкам:
</span><span> 10 11 12 13
</span><span> 14 15 16 17
</span><span> 18 19 20 21
</span><span>сумма элементов строки 1: 46
</span><span>сумма элементов строки 2: 62
</span><span>сумма элементов строки 3: 78
</span>
Дисковод. ответ правильный -Г
Var a, b, c, e, f: integer;
d, x1, x2: real;
begin
write('Введите коэффициент x^2: ');
readln(a);
write('Введите коэффициент x: ');
readln(b);
write('Введите свободный член: ');
readln(c);
d:=b*b-4*a*c;
if (d>=0) then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
write('Уравнение имеет 2 корня: ');
writeln;
writeln('Первый корень: ',x1:4:2);
writeln('Второй корень: ',x2:4:2);
end
else
writeln('Дискриминант < 0');
readln;
end.
