Найти три таких целых числа

@MLP · Регистрация: 04.05.2012

Author24 — интернет-сервис помощи студентам

Помогите решить вот такую задачку на делфи:
Найти три таких целых числа a, b и c в диапазоне от 0 до 20,
для которых справедливо равенство Пифагора a^2+b^2 = c^2

@Mawrat · 06.07.2012, 10:43

Delphi

var
  a, b, c : Integer;
begin
  Memo1.Text := 'Перечень решений:';
  for a := 0 to 20 do
  for b := 0 to 20 do
  for c := 0 to 20 do
    if a*a + b*b = c*c then
      Memo1.Lines.Add('a = ' + IntToStr(a) + ', b = ' + IntToStr(b) + ', c = ' + IntToStr(c));
end;

@MLP 0 / 0 / 0 Регистрация: 04.05.2012 Сообщений: 32
		1
	Найти три таких целых числа 06.07.2012, 10:13. Показов 1193. Ответов 1 Метки нет (Все метки) Помогите решить вот такую задачку на делфи: Найти три таких целых числа a, b и c в диапазоне от 0 до 20, для которых справедливо равенство Пифагора a^2+b^2 = c^2 0

	06.07.2012, 10:43

Найти три таких целых числа

Решение