Const a: array[1..11] of real = (0.75, 1.6, 2, 2, 2, 2, 2, 2, 2, 2, 2);
var x, h, x1, x2: real;
function F(x: real): real; var i: integer; x_n, res : real; begin res := a[1]; x_n := 1; for i := 1 to 10 do begin x_n := x_n * x; res := res + a[i + 1] * x_n; end; F := res; end;
begin x1 := 0; x2 := 2; h := 0.2; x := x1; repeat writeln('x = ', x:3:1, ' y = ', F(x):9:3); x := x + h; until x > x2; end.
x: - входное число, целое а: - целое шаг 1. x - делится на 5 ? если да то ответ YES, выход шаг 2. а: = x-5*целое (х/5) шаг 3 a - делится на 3 ? если да то ответ YES, выход шаг 4 a:=a+5 шаг 5 a - больше чем х ? если да то ответ NО, выход переход на шаг 3
... for i := 1 to N do begin if (a[i] mod 10 = 5) then begin inc(x); y += a[i]; end; end; writeln(y / x); ...
... Проверить все элементы массива A. Если остаток от деления элемента на 10 равен пяти, то увеличиваем переменную x на единицу, а y на значение данного элемента. Затем делим y на x и получает результат.