Составить программу – генератор чисел пифагора а, b, с (с2 = а2 + b2). в основу положить формулы: а = m2 - n2, b = 2mn, с = m2 + n2 (m, n — натуральные, 1 < m < k, 1 < n < k, k — данное число). результат вывести на экран в виде таблицы из пяти столбцов: m, n, а, b, с.

Программа составлена для условия m∈[2,k], n∈[1; k], m> n cls input "k=", k for m = 2 to k     for n = 1 to m - 1           a = m ^ 2 - n ^ 2: b = 2 * m * n: c = m ^ 2 + n ^ 2           print m, n, a, b, c     next n next m end тестовое решение: k=5 2                        1                        3                        4                        5 3                        1                        8                        6                        10 3                        2                        5                        12                      13 4                        1                        15                      8                        17 4                        2                        12                      16                      20 4                        3                        7                        24                      25 5                        1                        24                      10                      26 5                        2                        21                      20                      29 5                        3                        16                      30                      34 5                        4                        9                        40                      41

program xxx;

    var i, s : integer;

begin

  s: =0;

  for i: = 10 to 99 do

      if i mod 5 = 0 then s: =s+i;

  writeln('сумма двузначных чисел, кратных 5 =', s);

  readln

end.

  я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))

 

 

vara: string; b: integer; beginwriteln ('введите строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; while (b = 1) dobeginwriteln ('введіте строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; end;

end.