Богуслав
6 год назад
2) Вводится четырехзначное число с клавиатуры. Определить цифру тысяч, сотен, десятков и единиц. В окне вывода должно быть так (это пример)
Введи четырехзначное число:
1234
цифра тысяч-1
цифра сотен-2
цифра десятков-3
цифра единиц - 4
ОТВЕТЫ
Valerian
Jul 1, 2019
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
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
265
