Напишите программы в Pascal:
1. Ввести целое число и определить, верно ли, что все его цифры расположены в порядке возрастания.... 2. Ввести целое число и «перевернуть» его, так чтобы первая цифра стала последней и т.д.
1. Ввести целое число и определить, верно ли, что все его цифры расположены в порядке возрастания.... 2. Ввести целое число и «перевернуть» его, так чтобы первая цифра стала последней и т.д.
More Questions From This User See All
Answers & Comments
{1}
begin
var n:=readstring('Число: '); var b:=true;
for var i:=1 to length(n)-1 do if n[i]>n[i+1] then b:=false;
write (b? 'Да':'Нет')
end.
{2}
begin
write (readstring('Число: ').Inverse)
end.