Составьте программы на Паскале для решения задач № 6–9 из заданий к § 10
Составьте программы на Паскале для решения задач № 6–9 из заданий к § 10. При этом отмените ограничения на количество операций в арифметическом выражении, сформулированные в условиях задач.
program z6;
var a, b, c, d, m, n: integer;
begin
readln(a,b,c,d);
m:=a*d+c*b;
n:=c*d;
writeln(m, '/' ,n)
end.
program z7;
var x, y: integer;
begin
readln(x);
y := sqr(1-sqr(x)+5*sqr(sqr(x)));
writeln ('y=', y);
end.
program z8;
var x, y: integer;
begin
readln(x);
y := sqr(sqr(sqr(x)));
writeln ('y1=', y);
y:= sqr(x)*y;
writeln ('y2=', y);
y:=sqr(sqr(x))*y*x;
writeln ('y3=', y);
y:=sqr(sqr(x))*y;
writeln ('y4=', y);
end.
program z9;
var a, b, c, m: integer;
begin
readln(a, b, c);
writeln ('A=', a, ' B=', b, ' C=', c);
m := b;
b := a;
a := c;
c := m;
writeln ('A=', a, ' B=', b, ' C=', c);
end.