Паскаль. среди 4-значных чисел. определить сколько "счастливых", т.е. сумма 1 и 2 числа = сумме 3 и 4 и вывести их на экран.

vara,b,i,k: integer; begink: =0; for i: = 1000 to 9999 dobegin  a: = i div 100;   b: = i mod 100;   if ((a div 10)+(a mod 10))=((b div 10)+(b mod 10)) then k: =k+1; end; writeln('счастливых чисел: ',k); end.

// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin   var (n, m): = readlninteger2('n, m -> '); writeln('сгенерированная матрица: ');   var a: = matrrandom(n,m); a.println;   var sumeven: = 0;   var sumodd : = 0; dec(n); dec(m);   for var i: = 0 to n do   if (i+1).iseven then       sumeven: = sumeven + a.row(i).sum   else       sumodd : = sumodd + a.row(i).sum;   writeln('cумма на четных строках -> ', sumeven);   writeln('cумма на нечетных строках -> ',sumodd);   end. пример: n, m -> 4 5 сгенерированная матрица:   62  61    7  15  76   74  84  43  80    4   37    9  40  86  34   45  70  87  30  51 cумма на четных строках -> 568 cумма на нечетных строках -> 427

1) var x : integer; begin readln(x); if x mod 2 = 0 then   writeln('число четное'); else   writeln('число нечетное'); end. проверим прямоугольность с теоремы пифагора var a,b,c : integer; begin readln(a,b,c); if (a*a+b*b = c*c) or (b*b+c*c = a*a) or (c*c+a*a = b*b) then writeln('треугольник прямоугольный); elseif(b=a) or (b=c) or (a=c) then writeln('треугольник равнобедренный'); elseif(a=b) and (b=c) and (a=c) then writeln('треугольник равносторонний'); else writeln('треугольник не прямоугольный, не равнобедренный и не равносторонний'); end.