Program prg3_9;
VAR OLD, NEW : REAL;
F : BOOLEAN;
BEGIN
WRITE('ВВЕДИТЕ X = ');
READLN (OLD);
WRITE('ВВЕДИТЕ X = ');
READLN (NEW);
F := TRUE;
REPEAT
IF NEW<= OLD THEN F := FALSE;
OLD := NEW;
WRITE('ВВЕДИТЕ X = ');
READLN (NEW)
UNTIL NEW = 0;
IF F THEN
WRITELN(‘ПОСЛЕДОВАТЕЛЬНОСТЬ ВОЗРАСТАЮЩАЯ')
ELSE
WRITELN(‘ПОСЛЕДОВАТЕЛЬНОСТЬ HE ЯВЛЯЕТСЯ ВОЗРАСТАЮЩЕЙ')
END.
Program prg3_10;
VAR OLD, NEW : REAL;
F : BOOLEAN;
BEGIN
WRITE('ВВЕДИТЕ X = ');
READLN (OLD);
WRITE('ВВЕДИТЕ X = ');
READLN (NEW);
F := TRUE;
REPEAT
IF NEW*OLD> = 0 THEN F := FALSE;
OLD := NEW;
WRITE('ВВЕДИТЕ X = ');
READLN (NEW)
UNTIL NEW = 0;
IF F THEN
WRITELN('ПOCЛEДOBATEЛЬHOCTЬ ЗНАКОПЕРЕМЕННАЯ')
ELSE
WRITELN('ПOCЛEДOBATEЛЬHOCTЬ HE ЯВЛЯЕТСЯ ЗНАКОПЕРЕМЕННОЙ')
END.
Program prg3_11;
VAR PORODA : STRING;
I, К, N : INTEGER;
AGE, L : REAL;
BEGIN
REPEAT
WRITE('ВВЕДИТЕ ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = ');
READLN (N);
UNTIL N>0;
К := 0;
FOR I := 1 TO N DO
BEGIN
WRITELN('ВВЕДИТЕ ПОРОДУ, ВОЗРАСТ, ВЫСОТУ ХОЛКИ ');
READLN (PORODA);
READLN (AGE, L);
IF (PORODA = 'БОКСЕР') AND (AGE<= 3) AND (AGE> = 2) AND (L> = 55)
THEN К := K+1;
END;
IF К = 0 THEN WRITELN('TAKИX СОБАК НЕТ')
ELSE
WRITELN('BOKCEPOB 2-3 ЛЕТ С ВЫСОТОЙ ХОЛКИ НЕ НИЖЕ 55 СМ', К, ' ШТУК')
END.
PROGRAM PRG3_12;
VAR POL: STRING;
I, К, N : INTEGER;
BEGIN
REPEAT
WRITE('BBЕДИTE ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = ');
READLN (N);
UNTIL N>0;
К := 0;
FOR I := 1 TO N DO
BEGIN
WRITELN('ВВЕДИТЕ ПОЛ');
READLN (POL);
IF POL = 'MAN' THEN К := K+1
ELSE BREAK
END;
IF К = 0 THEN WRITELN(‘МУЖЧИН В НАЧАЛЕ ОЧЕРЕДИ НЕТ')
ELSE WRITELN('B НАЧАЛЕ ОЧЕРЕДИ СТОИТ ', К, ' МУЖЧИН')
END.
Program X;
Var a,b,min1,min2:integer;
begin
Writeln('введите первое число');
Readln(a);
min1:=32767;min2:=a;
Repeat
Writeln('введите число');
Readln(b);
If b<min1 then min1:=b;
If (b>min1) and (b<min2) then min2:=b;
a:=b;
Until b=0;
Writeln('минимум 1=',min1);
Writeln('минимум 2=',min2);
end.
Program X;
Var
i,n:integer;
y:real;
BEGIN
write('Введите n=');
readln(n);
y:=n;
for i:=n downto 2 do y:=i-1+cos(y);
writeln('y=',cos(y));
END.
Program z4;
const n=5;
var a:array [1..n] of integer;
i:integer;
t:boolean;
begin
for i:=1 to n do readln(a[i]);
t:=true;
for i:=1 to n-1 do
if a[i]>a[i+1] then t:=false;
if t=true then write('Последовательность неубывающая') else write('Последовательность убывающая');
readln;
end.
Program Posled;
var a,shetchik,min,pn,:integer;
begin
min:=32768;
shetchik:=0;
repeat;
begin
writeln('Введите число');
readln(a);
shetchik:=shetchik+1;
if a<min then begin
pn:=shetchik;
min:=a;
end;
end;
until (a=0);
writeln('Минимальное число=',min);
writeln('Его порядковый номер=',pn);
readln;
end.
Program
P;
VAr max,i,n,a:integer;
begin
max:=-32768;
writeln('Zadaem kolichestvo chisel');
readln(n);
for i:=1 to n do
begin
writeln('vvod sifri');
readln(a);
if(a>max) and (a<0) then max:=a;
end;
writeln(max,'-max - chislo');
readln;
end.