Определить: тождественно -истинно или тождественно - ложно высказывание : (avb)^(avc)

var a,b,i,s: integer;

begin

writeln('введите 2 числа');

readln(a); readln(b);

s: =0;

if a< b then

for i: =a to b do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

if a> b then

for i: =b to a do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

writeln(s)

end.

var

x,y: real;

begin

readln(x);

y: =7*sin(x)*sin(x)-0.5*cos(x);

writeln(y);

end.

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

5 6)input ndim a(n)for i=1 to n  input a(i)next ifor i=1 to n  for j=i to n  if a(i)> a(j) then 'поменяешь больше на меньше и будет сортировать в другую сторону       t=a(i)      a(i)=a(j)      a(j)=t  end if     next jnext ifor i=1 to n  print a(i); next iдля массива а опредилить сумму квадратов отрицательных элементов, произведение положительных элементов, нулевые-заменить числом 12. результаты расчета и массив вывести на экран.input ndim a(n)s=0p=1for i=1 to n  input a(i)next ifor i=1 to n  if a(i)> 0 then p=p*a(i)  if a(i)< 0 then s=s+a(i)*a(i)  if a(i)=0 then a(i)=12next ifor i=1 to n  print a(i); next iprintprint sprint pизвестны данные о количестве осадков, выпавших за каждый день января. найти общее число осадков, выпавших по нечетным числам месяца.n=31dim a(n)s=0for i=1 to n  input a(i)next ifor i=1 to n  if i mod 2 =0  then s=s+a(i)next iprintprint sдля массива а. найти количество положительных, сумму нечетных и произведение чисел, кратных в. результаты расчетаа и массив вывести на экран.input ninput bdim a(n)s=0p=1k=0for i=1 to n  input a(i)next ifor i=1 to n  if a(i)> 0 then k=k+1  if i mod 2 = 1 then s=s+a(i)  if a mod b = 0 then p=p*a[i]next ifor i=1 to n  print a(i); next iprintprint sprint pprint b