<span>#include <iostream>
using namespace std;
int main()
{
cout << "Hello world!";
return 0;
<span>}</span></span>
Алгоритм решения логарифмических уравнений.
1)Смотришь,чтобы у логарифмов были одинаковые основания;
Если основания разные,то приводишь к одинаковому основанию
2)Пишешь ОДЗ
3)Выполняешь арифметические действия;
4)Получаешь ответ,если ответ не сходится с ОДЗ,то корней уравнения нет.Если корни подходят,то выписываешь,те корни которые подошли
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3>
function ReadWhileSum(cond: integer->boolean): sequence of integer;
begin
var s := 0;
while True do
begin
var x := ReadInteger();
s += x;
if not cond(s) then break;
yield x;
end;
end;
begin
Println('Сред. арифм. =',ReadWhileSum(sum -> sum < 150)
.Where(t->t.IsEven).Average);
end.
<span>program gt;
var x1,x2,dx,y:real;
begin
readln(x1,x2,dx);
while x1<=x2 do
begin
y:=(x1-5)/(cos(x1*3.14/180));
writeln(x1,' ',y:1:4);
x1:=x1+dx;
end;
end.
<span>Это вторая задача.А теперь про первую. Она такая же как это но y= пиши что там в условии сказано и всё</span></span>
Var
x,k:integer;
a:array[1..100] of integer;
begin
k := 0;
read(x);
while x <> 0 do
begin
k := k + 1;
a[k] := x;
read(x)
end;
writeln(k);
for x := 1 to k do
write(a[x],' ')
<span>end.</span>
