ГДЗ Информатика 9 класс Семакин — Программирование ветвлений на Паскале

1)Program n_1;
var x,y,z,c:integer;
begin
readln (x,y,z);
c:=x;
if c>y then c:=y;
if c>z then c:=z;
writeln (c);
end.
2)Program n_2;
var x,y,z:integer; q,w,e:boolean;
begin
readln (x,y,z);
q:= (y>x) and (z>x);
w:= (y<x) and (y<z);
e:= (z<y) and (z<x);
if e=True then writeln (z);
if w=True then writeln (y);
if q=True then writeln (x);
end.
3)Program n_3;
var x,y,z:integer;
begin
readln (x,y,z);
if (x<y) and (x<z) then writeln (x);
if (y<x) and (y<z) then writeln (y);
if (z<y) and (z<x) then writeln (z);
end.

5.

var
a, b, c: longint;

begin
writeln (‘Введите переменную a: ‘);
readln (a);
writeln (‘Введите переменную b: ‘);
readln (b);
writeln (‘Введите переменную c: ‘);
readln (c);
if (a > b) and (a > c) and (b > c) then writeln(c, b, a) else
if (b > a) and (b > c) and (c > a) then writeln(a, c, b) else
if (c > a) and (c > b) and (a > b) then writeln(b, a, c) else
if (b > a) and (b > c) and (a > c) then writeln(c, a, b) else
if (c > a) and (c > b) and (b > a) then writeln(a, b, c) else
if (a > b) and (a > c) and (c > b) then writeln(b, c, a)
end.

6. 

Var
a,b,c,d:real;
    begin
        writeln(‘a,b,c ?’);
        readln(a,b,c);
        d:=sqr(b)-4*a*c;
            if d<0 then  writeln(‘d<0’);   
                if d>0 then       
                     writeln(‘x1= ‘,((-b)+sqrt(d))/(2*a),’  x2= ‘,((-b)-sqrt(d))/(2*a)) ;         
                         if d=0 then             
                            writeln(‘x1= ‘,(-b)/(2*a)); 
end.