Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ СРОЧНО НАДО !!!
ПРЯМО СЕЙЧАС УРОК ИНФОРМАТИКИ , А Я НЕ ПОНИМАЮ !!!
ПОМОГИТЕ ПОЖАЛУЙСТА
ДАНО ДВУЗНАЧНОЕ ЧИСЛО ,ПЕРВОЕ УВЕЛИЧИТЬ НА ЕДИНИЦУ , ПОСЛЕДНЕЕ УМЕНЬШИТЬ НА ЕДИНИЦУ

Ответ оставил Гость

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