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

Ответы 1

  • var    i, a, b, c: integer;begin    for i := 1 to 10 do         writeln(i, '^2 = ', i * i);    writeln;        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, '^2 + ', b, '^2 = ', c, '^2');end.
    • Автор:

      kaiden
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years