EkaterinaSEMENOV702
?>

Построить программу вычисления площади параллелепипеда(python)

Информатика

Ответы

Серопян

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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Построить программу вычисления площади параллелепипеда(python)
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

windless-el
annaar497
Elen-Fler
Суханова1532
Radikovnanikolaeva
Agadzhanyan-Ekaterina
drevile57
Ivanovich-A.V
vasiliiparshin7668
obitelsvel8
yorestov
Nadirovich1317
iriska-669
slipu817838