2) Вводится четырехзначное число с клавиатуры. Определить цифру тысяч, сотен, десятков и единиц. В окне вывода должно быть так (это пример)
Введи четырехзначное число:
1234
цифра тысяч-1
цифра сотен-2
цифра десятков-3
цифра единиц - 4
Введи четырехзначное число:
1234
цифра тысяч-1
цифра сотен-2
цифра десятков-3
цифра единиц - 4
More Questions From This User See All
Answers & Comments
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