Составить программу для вычисления F=2aa+|6-a|+293a

Знания

Информатика

1 ответ:

dava4 года назад

0 0

Var a:real;

Begin

Write('a=') ;read(a) ;

Write('f=', 2*a*a+abs(6-a)+293*a) ;

End.

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

Помогите мне по информатике тест

Kroshka25

Ответ:

1)A

2)D

3)A

4)C

5)B

6)E

Объяснение:

Осылай ойлайм

0 0

4 года назад

Написать программу на паскале, которая для заданных x и n вычисляет:, где n=количество членов ряда.

Yanika13 [21]

Var
    x, a, s: real;
    n, i: integer;

begin
    write('Введите x и n ');
    readln(x, n);

    a := 1;
    s := a;
    for i := 1 to n do
    begin
        a := a * (-1) * x * x / (2 * i - 1) / (2 * i);
        s := s + a;
    end;

    writeln('S = ', s:10:3);
end.

0 0

4 года назад

Определите значения переменой m после исполнения данного алгоритма :

Jan13

1. m:=-4
2. k:=-2
3. m:=13

0 0

4 года назад

Помогите решит задачу в PascalABC: Вы ввели трехзначное число , затем ввели любую цифру. Составьте программу, определяющую, есть

elkaelka777 [1]

// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
var s:=ReadlnInteger('Число:').ToString;
if Pos(ReadlnString('Цифра:'),s)>0 then Writeln('Есть в числе')
else Writeln('Нет в числе')
end.

<u><em>Тестовое решение:</em></u>
Число: 634
Цифра: 3
Есть в числе

0 0

3 года назад

Ребят помогите пожалуйста решить задачу по Паскалю. Дан целочисленный массив из 30 элементов,элементы массива могут принимать зн

glazasstaya [703]

Var n, i, a, sum: Integer;
Begin
sum := 0;
readln(n);
for i := 1 to n do begin
read(a);
if a mod 5=0 then sum := sum + a;
end;
writeln(sum);
End.

0 0

4 года назад

Составить программу для вычисления F=2*a*a+|6-a|+293a

Составить программу для вычисления F=2aa+|6-a|+293a