Можете ли вы помочь, пожалуйста? Поставил тридцать баллов. Напишите ** языке "Паскаль"...

Question

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

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

Answer 1

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

Comments

Премного благодарен вам.

---

3213123123123213123213123213