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.
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.
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.