Язык программирования: Pascal ABS.NET /////////////////////
Program composition;
Var a, b, P: integer;
begin
WriteLn ('Введите первое число');
Write ('a=');
ReadLn (a);
WriteLn ('Введите второе число');
Write ('b=');
ReadLn (b);
P:= a*b;
WriteLn ('Произведение:',P);
end.
Программа:
var x,y:real;
begin
x:=2007;
y:=x/(1+x*x/(3+2*x*2*x*2*x));
writeln('y=',y:5:3);
<span>end.
Блок-схема - в прилагаемом файле.</span>
3*3+3/3=4
3+3/3+3=5
3+3+3-3=6
3/3+3+3=7
-
3*3-3+3=9
-
1+2/3=1
1*2+3-4=1
1+2*3-4/5=1
1*2+3-4+5/6=1
1+2*3-4/5+6/7=1
1*2+3-4+5-6-7+8=1<span>
</span>