Задачки на ветвление, 8 класс, паскаль абс1) Введите чиcло x. Если

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

Задать свой вопрос
1 ответ
//1

Var
 x:integer;
begin
 readln(x);
 if xgt;100 then x:=x+50 else x:=x*2;
 writeln(x);
end.

//2
Var
 x,y:integer;
begin
 read(x,y);
 if xgt;y then x:=x*2;
 if xlt;y then x:=x+y;
 writeln(x);
end.

//3
Var
 x,y:integer;
begin
 read(x,y);
 if xgt;y then writeln('Max-x') else writeln('ygt;=x');
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт