Упростите ¬(¬(¬A V ¬B) & (A V B))
ответ введите без пробелов. Для обозначения логических операций используйте частицы И, ИЛИ, НЕ. Например

НЕАИНЕВИА

var

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

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.

a в квадрате плюс b в квадрате:  

;

прогоняем числа от 10 до 99 в цикле, учитываем при выводе отрицательные числа.

на  tpascal:

var i: integer;

begin

for i: =10 to 99 do begin

if i mod 3 = 2 then

writeln (i,' ',-i,' ');

i: =i+1;

end;

readln

end.

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n