ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ Безотлагательно Надобно !!!ПРЯМО СЕЙЧАС УРОК ИНФОРМАТИКИ , А

ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ Безотлагательно Надобно !!!
ПРЯМО На данный момент УРОК ИНФОРМАТИКИ , А Я НЕ Разумею !!!
ПОМОГИТЕ ПОЖАЛУЙСТА
ДАНО ДВУЗНАЧНОЕ ЧИСЛО ,1-ое Прирастить НА ЕДИНИЦУ , ПОСЛЕДНЕЕ УМЕНЬШИТЬ НА ЕДИНИЦУ

Задать свой вопрос
Маринка Будревич
И потом, что такое "решите"? Программу на каком-то языке? На каком?
Антон Акулиничев
Напишите в паскале
Славян Задверняк
Английском
Шома Никита
Пока не ответите про 90, никакой писанины
Илюшка Руденко-Моргун
Российского паскаля не посещает
Александра Переводчикова
0,9 будет
Алиса Ремешко
Понятно, по кольцу зеанчит
Алексей Иванько
*значит
Валентина
Как это сделать?
Анастасия Лиштаева
Помогите пожалуйста
1 ответ
Var
  n,n1,n2:integer;
begin
  Write('Введите целое двухзначное число: ');
  Readln(n);
  n1:=(n div 10)+1;
  if n1=10 then n1:=0;
  n2:=(n mod 10)-1;
  if n2=-1 then n2:=9;
  Writeln('Итог: ',n1,n2)
end.

Тестовое решение:

Введите целое двухзначное число: 38
Итог: 47

Введите целое двухзначное число: 90
Результат: 09

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


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

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

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

Войти на сайт