Паскаль! Помогите пожалуйста составить программу: 1)Вводим любое четырехзначное число. В...

Question

Паскаль! Помогите пожалуйста составить программу:
1)Вводим любое четырехзначное число. В результате выполнения программы на экране такая запись:
В числе
- тысяч
- сотен
-десятков
- единиц
В скобках <...> указаны переменные, сами скобки обозначают - в этом месте.

2)Ввести с клавиатуры трехзначное число. Определить сумму его цифр (переменная sum) и вывести эти цифры в обратном порядке. В результате выполнения программы на экране такая запись:
В числе
- сотен
-десятков
-единиц
В скобках <...> указаны переменные, сами скобки обозначают - в этом месте

Comments

В первой задаче на вход идёт только четырёхзначное?

---

да

---

Выложить в файле? Или просто код?

---

Ну быстрее ребят

---

beginvar a:string;var i:integer;readln(a);if length(a) = 4 then writeln(copy(a,1,1) + ' -тысяч'); writeln(copy(a,2,1) + ' -сотен'); writeln(copy(a,3,1) + ' -десятков'); writeln(copy(a,4,1) + ' -единиц');end.

---

первая

---

beginvar a:string;var i:integer;var b:string;readln(a);for i:=3 downto 1 dobegin b:= b + copy(a,i,1)end;writeln(copy(b,1,1) + ' - сотен');writeln(copy(b,2,1) + ' - десятков');writeln(copy(b,3,1) + ' - единиц');end.

---

вторая

Answer 1

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var n:=ReadInteger('Введите четырехзначное число');
  Writeln('В числе');
  Writeln(n div 1000,' - тысяч');
  Writeln((n div 100) mod 10,' - сотен');
  Writeln((n mod 100) div 10,' - десятков');
  Writeln(n mod 10,' - единиц')
end.

Тестовое решение:
Введите четырехзначное число 4072
В числе
4 - тысяч
0 - сотен
7 - десятков
2 - единиц

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var n:=ReadInteger('Введите трехзначное число');
  var s:=n div 100;
  var d:=(n div 10) mod 10;
  var e:=n mod 10;
  Writeln('Sum=',s+d+e);
  Writeln(e,d,s);
  Writeln('В числе');
  Writeln(e,' - сотен');
  Writeln(d,' - десятков');
  Writeln(s,' - единиц')
end.

Тестовое решение:
Введите трехзначное число 492
Sum=15
294
В числе
2 - сотен
9 - десятков
4 - единиц