ЗАРЕГИСТРИРОВАННЫЕ СВЕДЕНИЯ ОБ ОБЪЕКТАХ, ЯВЛЕНИЯХ И ПРОЦЕССАХ - ЭТО

Знания

Информатика

1 ответ:

2005-2018 [300]4 года назад

0 0

Ответ:

Ответом будет являться: Информация

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

Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от Xнач до Xкон с ша

Mal Young

var
    x0, xk, dx, e, x, a, s: real;
    i: integer;

begin
    readln(x0, xk, dx, e);
    x := x0;
    writeln(' i ':3, ' ', ' x ':10, ' ', ' s ':10);
    repeat
        a := 1;
        s := a;
        i := 0;

        repeat
            i := i + 1;
            a := a * x / i;
            s := s + a;
            writeln(i:3, ' ', x:10:3, ' ', s:10:3);
        until abs(a) < e;

        x := x + dx;
    until x >= xk;
end.

0 0

4 года назад

Кто может пить ногой

Роман Пименов [13]

Лягушка, всасывает ее через кожу , находясь лапками в воде

0 0

4 года назад

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

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

Igorek212

Изменить название файла или создать под этот файл отдельную папку.

0 0

4 года назад

Сколько нулей в двоичной записи числа 570?

Irina Kirnosova

пять единиц

1000111010

0 0

4 года назад

30 Сотрудников за от 300 до 800 Определить сред зарплату всех сотрудников Определить сколько человек получают зп ниже средней

Insulin-Ot-Golovn...

Const N=30;
var s,b:real;
c,i:integer;
A:array[1..N] of real;
begin
Randomize();
b:=0;
c:=0;
for i:=1 to N do
begin
A[i]:=random(500)+300;
b:=b+A[i];
end;
s:=b/N;
for i:=1 to N do if A[i]<s then c:=c+1;
Writeln('Средняя зарплата: ',s);
Write('Количество сотрудников,получающих зарплату ниже средней: ',c);
End.

0 0

4 года назад