Решите на паскале. Дано пятизначное число, если первая цифра больше последней

Решите на паскале.
Дано пятизначное число, если первая цифра больше последней то отыскать творенье 2-й и 4-й цифр, по другому поменять местами 3-ю и 5-ю цифры местами.

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

Ответ:

var

  a:integer;

begin

  readln(a);

  if ((a div 10000) gt; (a mod 10)) then

     writeln(((a div 1000) mod 10) * ((a mod 100) div 10))

 else writeln(((a div 100) mod 10) * (a mod 10));

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт