Задача в Паскале!Дано трехзначное число - X, выделите его цифры и выведите их в обратном порядке.
Задача в Паскале!
Дано трехзначное число - X, выделите его цифры и выведите их в обратном порядке.
Гость
Ответ(ы) на вопрос:
Гостьvar n:integer;
begin
repeat
write ('N = ');
readln (n);
until (n>99) and (n<1000);
while n<>0 do
begin
write (n mod 10);
n:=n div 10;
end;
readln;
end.
Не нашли ответ?
Похожие вопросы