Предмет: Математика, автор: glebpaw

Девочка по пятницам и суббота всегда говорит правду, а по средам всегда лжёт. Семь дней подряд девочку спрашивали, как её зовут. Шесть первых дней она давала такие ответы: Алина, Вера, Алина, Вера, Галя, Вера. Какой день недели будет седьмым?

Ответы

Автор ответа: blacktaipan

Ответ:

Пятница.

Пошаговое объяснение:

Автор ответа: NEKO1234568

Ответ:

Пошаговое объяснение:

Вторник. Если бы спрашивалось будет ли она лгать седьмым днём, то было бы интересней

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Биология, автор: Sonya201514

Польза грибов не большой текстик, пожалуйста помогите!!!!!

1 год назад

Предмет: Математика, автор: ElyaShev

Решите уравнение :
1)9680:( x +219)=16 2) (x - 57) : 29=205

1 год назад

Предмет: Русский язык, автор: fassx

Помогите написать сочинение на тему:
"Любимая книга моей семьи"
Любимая книга: Стихи Агнии Барто
Ее мама читала мне на ночь и моя сестра ее читала)
Заранее спасибо))

1 год назад

Предмет: Информатика, автор: Лиля160197

Перевод кода из Pascal в C# (Консольное приложение)
Задача: написать программу, которая позволяет вычислять определенный интеграл с помощью формулы Ньютона-Котеса.

код:
{
Программа для вычисления интеграла
численным методом Ньютона-Котеса открытого типа 4-го порядка
с заданной погрешностью вычислений
}
program NewtonCotes;

{подинтегральная функция}
function F(x: real): real;
begin
F := sin(x);
end;

{вычисление интеграла на отрезке [a, b] методом Ньютона-Котеса открытого типа 4-го порядка}
function NewtonCotesOpen4(a, b: real): real;
const
n = 4; {порядок метода}
c: array [1..n - 1] of real = (2, -1, 2); {весовые коэффициенты}
K = 3.0; {делитель}
var
Res: real;
h: real; {величина шага}
x: real;
i: integer;
begin
h := (b - a) / n;
Res := 0;
for i := 1 to n - 1 do
begin
x := a + i * h;
Res := Res + c[i] * F(x);
end;
NewtonCotesOpen4 := Res * (b - a) / K;
end;

{вычисление интеграла на отрезке [a, b] как суммы интегралов на n подинтервалах}
function SumSubIntervals(a, b: real; n: integer): real;
var
h: real;
i: integer;
begin
SumSubIntervals := 0;
h := (b - a) / n;
for i := 1 to n do
SumSubIntervals := SumSubIntervals + NewtonCotesOpen4(a + pred(i) * h, a + i * h);
end;

var
a, b, {границы интегрирования}
Eps: real; {погрешность численного интегрирования}
n: integer; {количество подинтервалов интегрирования}
Icur, {значение интеграла на текущем шаге итерации}
Ipre: real; {значение интеграла на предыдущем шаге итерации}

begin
a := 0;
b := Pi;
Eps := 0.00001;

n := 1;
Icur := SumSubIntervals(a, b, n);
repeat
Ipre := Icur;
n := 2 * n; {увеличиваем количество подинтервалов}
Icur := SumSubIntervals(a, b, n);
WriteLn('I=', Icur: 10: 8, ' при n=', n, ', e=', Abs(Icur - Ipre): 10: 8);
until Abs(Icur - Ipre) < Eps;
writeln('------------------------------------------------------');
WriteLn('I=', Icur: 10: 8, ' при n=', n, ', e=', Abs(Icur - Ipre): 10: 8);
end.

7 лет назад

Предмет: Математика, автор: tarantul2510

прошу, дайте только ответ, спасибо

7 лет назад