Можете ли вы помочь, пожалуйста? Поставил тридцать баллов.
Напишите на языке \"Паскаль\" программу, которая позволит решить следующую задачу - Дано четырёхзначное число, найти в нём число тысяч, десятков и единиц.
Напишите на языке \"Паскаль\" программу, которая позволит решить следующую задачу - Дано четырёхзначное число, найти в нём число тысяч, десятков и единиц.
Ответ
5/5
(1 оценка)
1
Мозг
Отвечающий
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