Program pr3;
const {убраны лишние описатели - чистая косметика}
a = 2.12;
b = 7.45;
h = 0.34;
var
x, f1, f2, y, s: real;
i, n: integer; {описание, необходимое для цикла}
begin
{ x := a; этот оператор не нужен }
s := 0;
n := Trunc((b - a) / h)+1; {стандартная формула числа повторений цикла }
for i := 1 to n do { Заголовок цикла }
begin {начало блока для выполнения в цикле }
x := a + (i - 1) * h; { перенесено из конца цикла }
f1 := 3 * ln(exp(1 / 5) * ln(sin(x) + sqr(x)));
f2 := ((2 * x + 1) / (x * x * x * x * x));
y := f1 / f2;
s := s + y;
end; {конец блока для выполнения в цикле }
Writeln('S=', s:10:5);
end.
Тестовое решение:
S=26390.53751
Зрительная, тактильная, слуховая, вкусовая, обонятельная
16 бит=2 байта
Колво символов*2 байта=108 байт
Ответ 1)
В России построена первая телеграфная линия - 40-е гг. 19 века.
В Америке изобретён телефон - 1876 г
Русский ученый Попов открыл радиосвязь - 1895 г.
Создан первый телевизор - 30-е гг. 20 века
В США начала функционировать первая в мире компьютерная - 1969 г.