На ветвление, 8 класс, паскаль абс 1) введите чиcло x. если число больше 100, то прибавить 50, если меньше- умножить на 2 2)введите два числа (x,y). если число х больше числа у,то число х увеличить на 2,если меньше числа y- то к числу х прибавить число y. 3) введите два числа (x,y).если число х больше числа у,то на экран выдать сообщение,что максимальное число х, иначе, что больше число у

//1

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.

Привет! Я рад выступить в роли твоего школьного учителя и помочь с твоим вопросом.

Давай разберемся по шагам.

1) Введи число x:
- Если число x больше 100, то прибавь 50 к нему.
- Если число x меньше 100, то умножь его на 2.

Пример:
Пусть x = 75.
Так как 75 меньше 100, мы умножим его на 2.
Результат: x = 150.

2) Введи два числа (x, y):
- Если число x больше числа y, то увеличь число x на 2.
- Если число x меньше числа y, то прибавь число y к числу x.

Пример:
Пусть x = 10, y = 5.
Так как 10 больше 5, мы увеличим x на 2.
Результат: x = 12.

3) Введи два числа (x, y):
- Если число x больше числа y, выведи сообщение "Максимальное число x".
- Иначе выведи сообщение "Больше число у".

Пример:
Пусть x = 7, y = 10.
Так как 7 меньше 10, мы выводим сообщение "Больше число y".

Я надеюсь, что мои объяснения были понятны тебе. Если у тебя есть еще вопросы или нужна дополнительная помощь, пожалуйста, дай знать!