Question

1.8. Составить программу, которая выдавала бы сообщение ‘ true ‘, если последовательность из N целых чисел, вводимых с клавиатуры, является возрастающей //////реализовать с помощью 3-х циклов: while, repeat, for)

Answer 1

Это реализовано с помощью цикла for:

Program p1;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
For i:=0 to 1 do    
Begin    
Write('Введите число: ');    
Readln(a2);    
if a2>a1 then     
k:=k+1;    
a1:=a2;    
End;
if k=2 then 
Writeln('Эта последовательность является возрастающей') else 
Writeln('Эта последовательность не является возрастающей');
End.

Это реализовано с помощью цикла while:

Program p2;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
While i<>2 do    
Begin    
Write('Введите число: ');    
Readln(a2);    
if a2>a1 then     
k:=k+1;    
a1:=a2;    
i:=i+1;    
End;
if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей');
End.

Это реализовано с помощью цикла repeat:

Program p3;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
repeat    
Begin    
i:=i+1;    
Write('Введите число: ');    
Readln(a2);    
if a2>a1 then     
k:=k+1;    
a1:=a2;    
End;
until i=2;
if k=2 then 
Writeln('Эта последовательность является возрастающей') else 
Writeln('Эта последовательность не является возрастающей');
End.

Answer 2

Для решения данной задачи, вам потребуется написать программу на языке Pascal или Delphi, которая будет проверять, является ли последовательность из N целых чисел, вводимых с клавиатуры, возрастающей.

Вот пример программы на языке Pascal, которая реализует это с помощью трех циклов: while, repeat и for:

program CheckIncreasingSequence;
var
  N, i, num, prevNum: integer;
  isIncreasing: boolean;
begin
  writeln('Введите количество чисел в последовательности:');
  readln(N);
  
  writeln('Введите последовательность чисел:');
  readln(prevNum);
  
  isIncreasing := true;
  
  for i := 2 to N do
  begin
    readln(num);
    
    if num <= prevNum then
    begin
      isIncreasing := false;
      break;
    end;
    
    prevNum := num;
  end;
  
  if isIncreasing then
    writeln('true')
  else
    writeln('false');
end.

Программа запрашивает у пользователя количество чисел в последовательности (N) и затем последовательно запрашивает сами числа. Она сравнивает каждое число с предыдущим и если оно меньше или равно предыдущему, то устанавливает флаг isIncreasing в false и прерывает цикл. В конце программа выводит сообщение 'true', если последовательность является возрастающей, и 'false' в противном случае.

Примечание: Предоставленный код является примером и может быть адаптирован под ваши потребности. Убедитесь, что ваша среда разработки поддерживает язык Pascal или Delphi, и что вы правильно настроили ввод и вывод данных с клавиатуры и на экран.