• Можете ли вы помочь, пожалуйста? Поставил тридцать баллов.

    Напишите на языке "Паскаль" программу, которая позволит решить следующую задачу - Дано четырёхзначное число, найти в нём число тысяч, десятков и единиц.

Ответы 3

  • Премного благодарен вам.
  • 3213123123123213123213123213
  • var  v: integer;  qth, qtn, qltn: integer;begin   writeln('Введите четырёхзначное число');   readln(v);   qth:=v div 1000;   v:=v-qth*1000;   qtn:=v div 100; v:=v-qtn*100;   qtn:=v div 10;     qltn:=v-qtn*10;   writeln('Число тысяч ',qth,'; Число десятков ',qtn, '; Число единиц ',qltn);   readln;end.{---Пример-----}Четырёхзначное число 5342Число тысяч 5Число десятков 4Число единиц 2
    • Автор:

      juan797
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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