Ввести три числа и определить, верно ли, что они вводились в порядке возрастания.

Var one,two,three: integer; begin      write('введите первое число число: ');       readln(one);     write('введите второе число число: ');       readln(two);       write('введите третье число число: ');       readln(three);   if (one < two) and (two < three) then      writeln('числа введены в порядке возрастания')    else      writeln('числа не введены в порядке возрастания'); end.

Var i,k,j: integer; begin readln(i,k,j); if ( (i< k) and (k< j)) then write ('true') else writeln('false'); end.

корректны высказывания:

1. программную систему можно рассматривать как множество классов, позволяющих создавать, получать доступ и изменять коллекции данных, называемых объектами

 

3. вызов объектом компонента – основная базисная операция оо программирования

 

 

program zadacha2;

  uses crt;

  var i,n,a: integer;

            b,y,c,l: real;

begin

clrscr;

readln(n);

  a: =1;

  b: =2;

  c: =5;

  for i: =1 to n do                                                                                          

                                                                                                  begin  

if a mod 2 = 0 then

l: =a+b/c

else          

l: =a-b/c;

a: =a+1;

b: =b+2;

c: =c+5;

y: =y+l;

                                                                                                    end;

writeln(y: 2: 2);

readkey;

  end.

первую по подробней расспишите