(LAZARUS) ХОТЯ-БЫ ЧТО-ТО а: array [0..1000] of integer; и, п, k: integer; begin Мето1.Clear; в: -SirTolnt (Editl.Text)
for i: -0 to n do begin alij:-random(10); Мето1.Lines[ij:-FloatToStr(afij); end; еnd; procedure TForm1.Вutton2Click(Sender: TObjеct);
begin k:=0 for i: -0 to n do if alij>6 then k:3k+1; Edit2. Text:-FloatToStr(k); end; end.​

Петя не может быть правым в обоих случаях так как получиться что и петя и женя написали на 5, а тк не может быть по условию. дальше подбираем под петю два оставшихся случая, при том что петя сказал 2 раза правду, но этого не может быть т.к. тогда женя говорит либо 2 неправды либо 50на50, говоря две неправды он противоречит пете о том что он не писал на 5 а говоря правду неправду противоречит и пете и саше. значит петя определенно сказал правду неправду, тогда подставив жене неправду а саше правду получаем что на 5 написал петя.

Складіть програму мовою С++ для знаходження функції y(x), де x Є [a, b] з кроком h. Дані для y(x), a, b, h вказані в таблиці.

y = x + sin(3x);

[a, b], h   [-1, 3], h = 0.3

Програма:

С++:

#include <iostream>

#include <cmath>

using namespace std;

int main()

{

   float y, a, b, h;

   cout << "a = ";  cin >> a;

   cout << "b = ";  cin >> b;

   cout << "h = ";  cin >> h;

   while (a <= b) {

       y = a + sin(3 * a);

       cout << "y = " << y << " при x = " << a << endl;

       a += h;

   }

}

Результат:

a = -1

b = 3

h = 0.3

-1.14112 при x = -1

-1.56321 при x = -0.7

-1.33204 при x = -0.4

-0.39552 при x = -0.1

0.764643 при x = 0.2

1.4975 при x = 0.5

1.47546 при x = 0.8

0.942254 при x = 1.1

0.528424 при x = 1.4

0.774186 при x = 1.7

1.72058 при x = 2

2.87844 при x = 2.3

3.59854 при x = 2.6

3.56297 при x = 2.9