Дано натуральное число.Напишите программу,которая проверяет, является ли оно...

Question

Дано натуральное число.Напишите программу,которая проверяет, является ли оно четырехзначным и расположены ли его цифры в порядке убывания.

Answer 1

var

 n, i: Integer;

 s: string;

 isu: Boolean;

begin

 Write ('Введите число: ');

 Read (n);

 if (n >= 1000) and (n

   WriteLn ('Это число четырехзначное')

 else

   WriteLn ('Это число не четырехзначное');

 s := IntToStr (n);

 isu := True;

 for i := 1 to Length (s) - 1 do begin

   if s [i]

     isu := False;

     Break;

   end;

 end;

 WriteLn;

 if Isu then

   WriteLn ('Цифры расположены в порядке убывания')

 else

   WriteLn ('Цифры НЕ расположены в порядке убывания');

end.

Comments

Здравствуйте, можете пожалуйста помочь с информатикой? Программу надо написать в Кумире

---

https://znanija.com/task/31410599

---

К сожалению я в Кумире никогда не работал.

---

Очень жаль, но всё равно спасибо!