4 года назад

Помогите пожалуйста написать программу (с помощью Паскаля) по этому примеру y=x^2+6x/3-x ( y=(xx+6x)/(3-x) )

Знания

Информатика

1 ответ:

сабинаКа [62]4 года назад

0 0

Var x: integer; y: real;BeginWriteln ('Введите x: ');Read(x);y:=exp(ln(x)*2)+6*x/(3-x);Writeln(y)End.

Читайте также

Назовите чувства и органы чувств

Галина930505 [2.9K]

Дополнение к предыдущему ответу. Зрение — глаза.

0 0

3 года назад

Прочитать ещё 2 ответа

На чемпионате мира по танцам выступает 6 танцоров. Они выступают сначала в короткой программе, а затем в произвольной. Известны

Labuda

Надеюсь я все учел, достаточно объемная и сложная задача...

Var o,l:integer;

a,b,max2:real;

procedure rip (var x,t:real; i:integer);

var q,min,max:integer;

a1:array [1..10] of integer;

begin

writeln ('Введите через пробел оценки за короткую программу танцора номер ',i);

For q:=1 to 10 do begin

read (a1[q]);

t:=a1[q]+t;

end;

min:=a1[1];

max:=min;

For q:=2 to 10 do begin

If a1[q]<min then min:=a1[q];

If a1[q]>max then max:=a1[q];

end;

t:=(t-max-min)/8;

writeln ('Введите через пробел оценки за произвольную программу танцора номер ',i);

For q:=1 to 10 do begin

read (a1[q]);

x:=a1[q]+x;

end;

min:=a1[1];

max:=min;

For q:=2 to 10 do begin

If a1[q]<min then min:=a1[q];

If a1[q]>max then max:=a1[q];

end;

x:=(x-max-min)/8;

end;

begin

For o:=1 to 6 do begin

rip (a,b,o);

If (a+b)>max2 then begin max2:=a+b; l:=o; end;

end;

writeln (l);

end.

0 0

4 года назад

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел ,кратных 6 и оканчивающихся на 2.

макена

Var
n,k,i,t:integer;
begin
Read(n);
k:=0;
for i:=1 to n do begin
    Read(t);
    if (t mod 6=0) and (t mod 10=2) then Inc(k)
    end;
Writeln(k)
end.

0 0

4 года назад

Упрости и запиши верный ответ. (A∨N)&(A∨N¯¯¯)

Анастасия1209 [3]

Ответ:

Объяснение:

(A∨N) & ¬(A∨N) = 0

Обозначив (A∨N) через B, можно написать B & ¬B, а это тождественно 0.

0 0

4 года назад

Определите объем видеофайла, если передача его по сети длилась 1м20с при скорости 80*10"в 20степени"бит/с Запишите полученный ре

Sladkaja55 [269]

Перевод из бит в мегабайт в с :
80*10^20 бит в секунду = 0.00001 мегабайт в секунду
перевод 1 м 20с в секунды : 80с
находим файл : 80с * 0.00001 мегабайт в секунду = 0,0008 мегабайт

0 0

4 года назад

Помогите пожалуйста написать программу (с помощью Паскаля) по этому примеру y=x^2+6x/3-x ( y=(x*x+6*x)/(3-x) )

Помогите пожалуйста написать программу (с помощью Паскаля) по этому примеру y=x^2+6x/3-x ( y=(xx+6x)/(3-x) )