1: даны три положительных числа a, b, c. проверить, могут ли они быть сторонами прямоугольного треугольника. 2 : используя оператор цикла for, найти количество положительных чисел n чисел заранее =)

// 1. var a,b,c: real; begin writeln('введите два катета  a,b: '); readln(a,b); writeln('введите гипотенузу  c: '); readln(c);   if sqr(c) = sqr(a) + sqr(b) then writeln('треугольник прямоугольный.')   else writeln('треугольник не прямоугольный.'); end.// 2.vara: array [1..100] of integer; x,i,n: integer; beginwriteln('введите кол-во чисел  n: '); readln(n); writeln('введите числа: '); for i: = 1 to n do  readln(a[i]); writeln('вы ввели: '); for i: = 1 to n do  write(a[i]: 4); writeln; for i: = 1 to n do  if a[i] > -1 then x: =x+1; writeln('среди них положительных: ',x); end.

проще всего решать такие , всё к одной системе, проще всего 16ричной(легче переводить), хотя можно и в10ричную, но сложней.

итак

a = 91h

b = 352(8) = 011 101 010b =   1110 1010b =eah

ч1 = 1000 1001b = 89h

ч2 = 1000 1100b = 8ch

ч3 = 1101 0111b = d7h

ч4 = 1111 1000b = f8h

ну и всё, теперь ясно видно, что заданному условию удовлетворяет только ч3.

потому, что

если расположить все числа в поряде возрастания, то получим

 

89h   8ch   91h   d7h   eah   f8h

  ч1       ч2       а         ч3       b         ч4

 

вот теперь очевидно.

 

 

program z1; uses crt; var a: array[1..10,1..15] of integer; {- описание массива}i,j: byte;   {- описание переменных, служащих для заполнения массива и нахождения нечётного элемента}  e: integer; {- переменная, хранящая значение первого нечётного}beginclrscr; randomize;

{заполнение и вывод на экран массива}for i: =1 to 10 do beginfor j: =1 to 15 do begina[i,j]: =random(1000)+1; write(a[i,j]: 5); end; writeln; end; writeln;   {- отступ от массива}for j: =1 to 15 do begin  {- с первого по 15 столбик}e: =0;   {- обнуляем   переменную для нечётного элемента т.к. в каждом столбце он разный}for i: =1 to 10 do  {с первой по 10 элемент столбца}if (e=0) and (odd(a[i,j])) then  {- если переменная пока пуста и текущий элемент нечётный, то}e: =a[i,j];   {- то переменной присвоить значение текущего элементна}write(e: 5);   {- и вывести переменную на экран}end; readkeyend.