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

var

 n, i: Integer;

 s: string;

 isu: Boolean;

begin

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

 Read (n);

 if (n >= 1000) and (n <= 9999) then

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

 else

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

 s := IntToStr (n);

 isu := True;

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

   if s [i] <= s [i + 1] then begin

     isu := False;

     Break;

   end;

 end;

 WriteLn;

 if Isu then

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

 else

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

end.

1)7

2)6

3)4

4)5

Объяснение:

1)так как в Python отщёт идёт от 0, то значениями і будут 0,1,2,3,4,5,6 , из за того, что отщёт идёт до 7, то есть останавливается на 6.

проверяется програмой: for i in range(7):

print(i)

2) 6, так как последнее значение і в цикле будет 6. Проверяется командой for i in range(7):

print(i)

print(i). Так как после цикла і будет иметь значение последнее из цикла, то есть 6.

3)Отщёт идёт от 3 до 7, значениями і будут 3,4,5,6. Проверяется командой

for i in range(3,7):

print(i)

4) Отщёт идёт от 3 до 17, через три цифры, по этому значениями і будут числа 3,6,9,12,15.

проверяется командой

for i in range(3,17,3):

print(i)

что подписался)

Объяснение:

i=1

while(i<11):

if(i==1):

print(f"Факторіал {i} дорівнює 1 ")

elif(i==2):

print(f"Факторіал {i} дорівнює 2 ")

elif(i==3):

print(f"Факторіал {i} дорівнює 6 ")

elif(i==4):

print(f"Факторіал {i} дорівнює 24 ")

elif(i==5):

print(f"Факторіал {i} дорівнює 120 ")

elif(i==6):

print(f"Факторіал {i} дорівнює 720 ")

elif(i==7):

print(f"Факторіал {i} дорівнює 5040 ")

elif(i==8):

print(f"Факторіал {i} дорівнює 40360")

elif(i==9):

print(f"Факторіал {i} дорівнює 363240")

elif(i==10):

print(f"Факторіал {i} дорівнює 3632400 ")

i=i+1