На ветвление, 8 класс, паскаль абс 1) введите чиcло x. если число больше 100, то прибавить 50, если меньше- умножить на 2 2)введите два числа (x,y). если число х больше числа у,то число х увеличить на 2,если меньше числа y- то к числу х прибавить число y. 3) введите два числа (x,y).если число х больше числа у,то на экран выдать сообщение,что максимальное число х, иначе, что больше число у
Var
x:integer;
begin
readln(x);
if x>100 then x:=x+50 else x:=x*2;
writeln(x);
end.
//2
Var
x,y:integer;
begin
read(x,y);
if x>y then x:=x*2;
if x<y then x:=x+y;
writeln(x);
end.
//3
Var
x,y:integer;
begin
read(x,y);
if x>y then writeln('Max-x') else writeln('y>=x');
end.