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