Задача в паскале.
10-11 класс
|
Ввести натуральное число N. Проверить, расположены ли его цифры в порядке неубывания.
Решить НЕ ЧЕРЕЗ МАССИВ. (циклами)
uses crt;
var
i,a,s,min:integer;
begin
write('vvedite 4islo: ');
read(a);
s:=0;
min:=a mod 10;
while a>=1 do
begin
i:=a mod 10;
a:=a div 10;
if i>min then
s:=s+1;
end;
if s>0 then
write('ne verno')
else
write('4islo zapisano verno');
read;
end.
так пойдет?
вывести yes или no?
Другие вопросы из категории
Переведите числа в двоичную систему счисления и выполните операции арифметического сложения и умножения, а также операции поразрядного логического сложения и умножения.
Правильность полученных результатов проверьте с помощью компьютерного калькулятора.
из 256 цветов) растровое графическое изображение имеет размер 10 х 10 точек.
Какой объем памяти займет это изображение?
Читайте также
Имеется
массив А из N произвольных чисел (А(N)), среди которых есть положительные, отрицательные и
равные нулю. Используя оператор цикла, составить программу, выполняющую задачу:
Задать случайным образом 8
элементов числового массива – числа от 100 до 200. Вставить в него:
а) число «-20» перед 5-ым
элементом.
б) число «0» перед максимальным элементом. В одной задаче должно быть и а и б (но можно и по отдельности, главное, чтобы было верно)))
"Найти наименьшее кратное двух чисел a и b"
Насколько я помню в этой задаче можно использовать команду Break.
задачи на такую тему: Составление, ввод, трансляция и
исполнение программ, реализующих
циклические алгоритмы и типовые
операции с одномерными массивами
Дана строка.Перенести последнюю букву слова в начало слова