задача в Паскале - Помощь студентам

Л@пуля · 30.11.2011, 20:52

Разложить число 10 на два слагаемых сумма квадратов которых равна 58 (задача Ал-Харезми)

Л@пуля · 30.11.2011, 21:06

помогите решить, пожалуйста !!!

VIK_aka_TOR · 01.12.2011, 00:13

держите...

Код:

var
 x,y: integer;
begin
x := 1;
y:=10-x;
while (x < 6) do
      begin
      if ((x*x + y*y) = 58  ) then
         break
      else
          begin
          inc(x);
          y:=10-x;
          end;


end;
writeln('x =',x,'; y = ',y, ';  x^2 + y^2 = ', x*x+y*y );
end.

Л@пуля · 01.12.2011, 07:42

спасибо большое

30.11.2011, 20:52	#1
Л@пуля Регистрация: 30.11.2011 Сообщений: 5	задача в Паскале Разложить число 10 на два слагаемых сумма квадратов которых равна 58 (задача Ал-Харезми)

30.11.2011, 21:06	#2
Л@пуля Регистрация: 30.11.2011 Сообщений: 5	помогите решить, пожалуйста !!! Последний раз редактировалось Л@пуля; 30.11.2011 в 22:43.

01.12.2011, 00:13	#3
VIK_aka_TOR Участник клуба Регистрация: 30.01.2011 Сообщений: 1,578	держите... Код: `var x,y: integer; begin x := 1; y:=10-x; while (x < 6) do begin if ((xx + yy) = 58 ) then break else begin inc(x); y:=10-x; end; end; writeln('x =',x,'; y = ',y, '; x^2 + y^2 = ', xx+yy ); end.` пишу код не только за печеньки

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задача на паскале	juroy	Помощь студентам	1	20.11.2011 21:38
Задача в паскале	senora	Помощь студентам	5	21.01.2011 17:19
Задача в паскале	Флёшёдь	Паскаль, Turbo Pascal, PascalABC.NET	1	20.12.2010 19:35
Задача на паскале	Aluckard	Фриланс	8	28.11.2010 15:48
Задача в паскале	Кэт	Помощь студентам	3	26.11.2009 16:37

01.12.2011, 07:42	#4
Л@пуля Регистрация: 30.11.2011 Сообщений: 5	спасибо большое