• 3. Найти разность пятизначного числа и числа, записанного этими же цифрами в обратном порядке

Ответы 1

  • var rez, error, x: integer;t, t2: string;beginwrite('Введите пятизначное число: ');readln(t);val(t, x, error);if ( x <= 9999 ) OR ( x >= 100000 ) then writeln('Число не пятизначное!')elsebegint2 := IntToStr(x);t2 := t2[5] + t2[4] + t2[3] + t2[2] + t2[1];val(t2,rez,error);rez := x - rez;writeln('Разность чисел ', t, ' и ', t2, ' = ', rez);end;end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years