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

Using system; using system.collections.generic; using system.linq; using system.text; namespace consoleapplication5 {       class program       {               static void main(string[] args)               {                       // 1) написать программу,которая вводит таблицу квадратов первых 10 чисел.                       for (int i = 1; i < = 10; i++)                       {                               console.writeline(i + "^2=" + math.pow(i, 2));                       }                       console.readkey();                       // 2) найти все натуральные числа а,b,с, из интервала от 1 до 10 для которых выполняется равенство а^2+b^2=c^2                       for (int a = 1; a < = 10; a++)                       {                               for (int b = 1; b < = 10; b++)                               {                                       for (int c = 1; c < = 10; c++)                                       {                                               if (math.pow(a, 2) + math.pow(b, 2) == math.pow(c, 2))                                                       console.writeline("a=" + a + "; b=" + b + "; c="+c);                                       }                               }                       }                       console.readkey();               }       } }

1) var i: integer; begin for i: =1 to 10 do writeln(i,' - ',i*i); end. результат: 1 - 1 2 - 4 3 - 9 4 - 16 5 - 25 6 - 36 7 - 49 8 - 64 9 - 81 10 - 100 2) var a,b,c: integer; begin for a: =1 to 10 do   for b: =1 to 10 do   for c: =1 to 10 do     if a*a+b*b=c*c then writeln(a,' ',b,' ',c); end. результат: 3 4 5 4 3 5 6 8 10 8 6 10

Program test; const n = 100; var i,k: integer; m: array[1..n] of integer; begin randomize; for i: =1 to n do m[i]: =random(1,100); for i: =1 to n do if m[i] mod 2 =0 then inc(k); writeln('количество четных чисел: ',k); end.