Для какого из приведённых чисел ложно высказывание: НЕ (число > 30) ИЛИ (число чётное)?
1) 28
2) 34
3) 17
4) 45

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.

у нас интересные школьные дела. мы выпускаем свою газету, куда любой ученик может написать заметку и нарисовать рисунок. участвуем в школьных олимпиадах. а потом лучших на линейке. в феврале у нас проходит неделя наук. на этой неделе проходит много конкурсов, открытых уроков и интересных соревнований.

1)

var 

a,b,c: real;

begin

readln(a,b);

c: =180-a-b;

if (a> 90) or (b> 90) or (c> 90) then writeln('тупоугольный')

else

if  (a=90) or (b=90) or (c=90) then writeln('прямоугольный')

else  writeln('остроугольный');

end.

2)

var

v: real;

begin

readln(v);

if v< 7.8 then writeln ('ракета упадет на землю');

if v=7.8 then  writeln ('ракета станет спутником земли');

if (v> 7.8) and (v< =16.4) then  writeln ('ракета останется в пределах солнечной системы'); if (v> 16.4) then  writeln ('ракета покинет пределы солнечной системы');  

end.

include < iostream>

using namespace std;

int main()

{int n;

  cin > > n;

switch(n)

        {case 1: cout< < "i"; break;

          case 5: cout< < "v"; break;

          case 10: cout< < "x"; break;

          case 50: cout< < "l"; break;

          case 100: cout< < "c"; break;

          case 500: cout< < "d"; break;

          case 1000: cout< < "m"; break;

        }

return 0;

}