Информацию можно потерять к примеру забыть или записать на листок а потом выкинуть листок удалить информацию с копютера
Сначала немного математики.
Мы получили выражение для вычисления значения полинома по схеме Горнера, оптимизирующей число операций и избавляющей нас от использования возведения в степень.
Ниже - текст программы на Pascal.ABC. На самых старых версиях Паскаля инициализация элементов массива не может объединяться с его описанием и её следует выполнить отдельно в виде набор операторов присваивания.
var
a: array[1..4] of real := (-0.5, 0.11, -2.66, 10);
x, y: real;
i: integer;
begin
for i := 1 to 4 do
begin
x := a[i];
y := 3 * (4 + x * (1 + 3 * x));
Writeln('x=', x:5:2, ' y=', y:8:4)
end
end.
Тестовое решение:
x=-0.50 y= 12.7500
x= 0.11 y= 12.4389
x=-2.66 y= 67.7004
x=10.00 y=942.0000
Если я правильно понял условие(Вывести сколько раз в массиве встречается число введенное с клавиатуры), то
for i:=m to n do
if a[i]=x then k:=k+1;
write(k);
П.с. если условие такое как я понял, то переменная USL вообще не нужна.
1)команда,результат:36,команда×2,результат ;72,команда,результат:7