Найти всевозможные пары чисел

@Krasotka130793 · Регистрация: 16.09.2012

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

Найти всевозможные пары чисел xy и zt удавл.условиям: $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}^{2}+{y}^{2}={z}^{2}+{t}^{2}$ , где x,y,z,t<16

@MadLobster · 11.02.2013, 03:00

Pascal

uses crt;
 
var
x,y,z,t:byte;
 
begin
for x:=0 to 15 do
  for y:=0 to 15 do
    for z:=0 to 15 do
      for t:=0 to 15 do
        if x*x+y*y=z*z+t*t then writeln('x=',x,' y=',y,' z=',z,' t=',t);
readkey;
end.

@Krasotka130793 1 / 1 / 0 Регистрация: 16.09.2012 Сообщений: 157
		1
	Найти всевозможные пары чисел 10.02.2013, 20:09. Показов 1382. Ответов 1 Метки нет (Все метки) Найти всевозможные пары чисел xy и zt удавл.условиям: $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}^{2}+{y}^{2}={z}^{2}+{t}^{2}$ , где x,y,z,t<16 0

	11.02.2013, 03:00

Найти всевозможные пары чисел

Решение