40 БАЛЛОВЛюди благие, помогите пожалуйста с Паскалем.Необходимо составить программы1) Дано

40 БАЛЛОВ
Люди добросердечные, помогите пожалуйста с Паскалем.
Необходимо составить программы
1) Дано число х. Уменьшить его на 10, если число находится в промежутке (10;100]. Прирастить его в 2 раза, если число меньше, уменьшить в 5 раз если больше.
2) Дано естественное число у. Уменьшить его на 26, если число трехзначное. Прирастить на 18, если число двузначное.
3) Даны целочисленные координаты точки на плоскости.
Если точка совпадает с началом координат, то вывести 0.
Если точка не совпадает с началом координат, но лежит на оси ОХ или OY,
то вывести соответственно 1 или 2.
Если точка не лежит на координатных осях, вывести номер координатного угла в римских числах.
Заранее громадное спасибо.

Задать свой вопрос
1 ответ
Program Evklid;
var M,N : integer;
begin
writeln (Введите M и N);
      readln (M , N);
      while Mlt;gt;N do
              begin
                   if Mgt;N
                   then M:=M-N
                   else N:=N-M
               end;
         write (нод =,M);
end.
Костян Уланович
Это решение какой задачки?
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт