Program chastnoe;
var N, p, sh: integer;
m: real;
begin
write(‘N=’); readln (N);
p:= N div 1000000000;
sh:= (N div 10000) mod 10;
m:= p/sh;
writeln (‘частное=’,m);
end.
Var a,k,i:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 7 do
begin
readln(a);
s:=s+a;
if a>0 then
inc(k);//<span>сколько раз в неделю температура была выше нуля
</span>end;
s:=s/7;//средняя температура.
end.
1. В скобках записан полином четвертой схемы. Представим его по схеме Горнера:
2. Строим алгоритм из последовательности операторов присваивания, не забывая в конце результат умножить на самого себя (чтобы получить квадрат выражения в скобках). Построение ведем, начиная с самых внутренних скобок.
y=2.5+x
y=x*y
y=-1+y
y=x*y
y=x*y
y=1+y
y=y*y