Определить результат выполнения функции =ЕСли(A2>6;"Зеленый";"Красный") , если в ячейке А2 будет значение 7.

program xxx;

  var i, n, s, k : integer;

                        a : array [1..20] of integer;

begin

  write('введите n=');

  readln(n)

  writeln('введите элементы массива а: ' );

  for i: =1 to n do

        readln(a[i]);

  s: =0;

  k: =0;

  for i: =1 to n do

      if a[i] mod 8 = 0 then begin s: =s+a[i]; k: =1 end;

  if k=0 then write ('элементов кратных 8 - нет')

                      else write('сумма элементов кратных 8 =', s);

  readln

end.

 

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.

Это выражение означает следующее: машина без человека - ничто. она не будет приносить абсолютно никакой пользы, если за ней не сидит тот или иной человек (работник за каким-нибудь станком, или дизайнер с программой по проектированию, к примеру). сам станок или одна только программа и компьютер не способны что-либо произвести: всю работу делает человек; машина является лишь средством облегчения и ускорения работ человека.

по одному.

обь в канал, мир,енесей,россия проплыли канал. обь выплыла и поплыла себе куда надо.

мир,енесей,россия вернулись обратно перед каналом

в канал заплыл восток.

мир,енесей,россия проплыли канал. восток уплыл

и тд