2) Вводится четырехзначное число с клавиатуры. Определить цифру тысяч, сотен, десятков и единиц. В окне вывода должно быть так (это пример)
Введи четырехзначное число:
1234
цифра тысяч-1
цифра сотен-2
цифра десятков-3
цифра единиц — 4

Ответ учителя по предмету Информатика

var s: array[1..4] of string=(‘тысяч — ‘,’сотен — ‘,’десятков — ‘,’единиц — ‘);

    nm: string;

    i: integer;

begin

  write(‘n = ‘);  readln(nm);

  for i:=1 to 4 do

    writeln(‘цифра ‘,s[i],nm[i]);

end.


n = 9214

цифра тысяч — 9

цифра сотен — 2

цифра десятков — 1

цифра единиц — 4