Составить программу в паскале: Дано х(вводится с клавиатуры) найдите y=sqrt((2*x+3)/(x-4))

Знания

Информатика

1 ответ:

Малютина Людмила ...4 года назад

0 0

Var
x: real;
begin
readln(x);
write(sqrt((2 * x + 3) / (x - 4)));
end.

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

Запишите формулу перевода в ячейку Т11 наибольшего из чисел находящихся в ячейках А11 и Х13

Елена120493

Формула, использующая функцию МАКС возвращает максимальное значение из нескольких указанных ячеек (и даже диапазонов):

=МАКС(A11;X13)

0 0

4 года назад

Помогитеееееее номер 2

анатолий8989989 [17]

Ответ: 34

Объяснение:

a=16

b=a*3+a/2=56

c=b-a/4=56-16/4=52

c=b-a+c=56-16+52=92

a=a-c-2+b*2=16-92-2+56*2=34

0 0

4 года назад

35 баллов. помогите пожалуйста с информатикой, просто помогите немнлго, как записать это упрощенно?

samlemur [27]

1)
case k of
4: a:=k+2;
5: a:=k+4;
6: a:=k+6;
7: a:=k+8;
8: a:=k+10;
9: a:=k+12;
10: a:=k+14;
end; { case }

2) if k in [4..10] then a:=3*(k-2);

0 0

4 года назад

Дана геометрическая прогрессия: 2, 6, 18, 54, … Найдите сумму первых n элементов прогрессии, используя оператор repeat.

nazar21

<u />var s,n:integer;
begin
s:=2;
readln(n);
repeat
s:=s*3;
n:=n-1;
until n=1;
writeln(s);
<span>end.</span>

0 0

1 год назад

Определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу N

Хадис06 [36]

Var
    N, i, k, sum, t: integer;

begin
    readln(N);
    k := 0;

    for i := 100 to 999 do
    begin
        t := i;
        while t > 0 do
        begin
            sum := t mod 10;
            t := t div 10;
        end;
        if sum = N then k := k + 1;
    end;

    writeln(k);
end.

0 0

4 года назад