Найти все тройки Пифагора, в которых каждое число меньше заданного Н

@NoviiMir · Регистрация: 23.09.2012

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

Натуральные числа a, b, c называются тройкой Пифагора, если выполняется условие a2+b2=c2. Требуется найти все тройки Пифагора, в которых каждое число меньше заданного N. Ответ записать в файл c именем FileName, располагая по одной тройке в строке.

@КонецСвета · 07.10.2012, 16:35

Pascal

var a,b,c,n: integer;
    f: text;
    fname: string;
    
begin
write('Имя файла: ');
readln(fname);
assign(f,fname);
rewrite(f);
write('n='); readln(n);
for a:=1 to n do
  for b:=1 to n do
    for c:=1 to n do
      if sqr(a)+sqr(b)=sqr(c) then
        begin
        writeln(f,a,' ',b,' ',c);
        end;
close(f);
end.

@NoviiMir 10 / 10 / 2 Регистрация: 23.09.2012 Сообщений: 427
		1
	Найти все тройки Пифагора, в которых каждое число меньше заданного Н 06.10.2012, 17:50. Показов 2586. Ответов 1 Метки нет (Все метки) Натуральные числа a, b, c называются тройкой Пифагора, если выполняется условие a2+b2=c2. Требуется найти все тройки Пифагора, в которых каждое число меньше заданного N. Ответ записать в файл c именем FileName, располагая по одной тройке в строке. 0

	07.10.2012, 16:35

Опции темы

Найти все тройки Пифагора, в которых каждое число меньше заданного Н

Решение