Program Wybor;
uses Crt;
var y, a, b :real;
begin
a:=226.3;
b:=931.3;
if (a-b)<(10*ln(1/3.1415926) ) then y:= b*sqr(x)*x -a*ln(abs(2*x))+sqr(sin(x))
else y:=sqrt(b*sin(x)/cos(x))-exp(3*x);
WriteLn('y=', y:6:3);
ReadLn;
end.
Типа того, только проверь все внимательно, а то ТУРБО устроил мне пляску Святого Витта... Кстати, в Паскале нет тангенса, его заменяем sin(x)/cos(x) и я в программе "СЪЭКОНОМИЛ" описание переменной Х...
Ответ:
примерно так только я не знаю принцип работы
Var a:array[1..30] of integer;
i:integer;
begin
for i:=1 to 30 do
begin a[i]:=2*i;
write(a[i],' ');
end;
end.
мозг быстрее всего обрабатывает информацию , флешка дольше всего хранит инфу а дальше сам понять не могу
Ответ:
Антенное
Объяснение:
Уйдёт много кабеля, в горах лучше ловит антенное, т. К ближе к спутнику, удобнее