1. 

   tenzor New Member

   Найти все натуральные числа а, b и с из интервала от 1 до 20, для которых выполняется равенство: a^2+b^2=c^2 (составить программу на языкепрограммирования)

    

   tenzor, 2 мар 2010

   #1
2. 

   mahimich New Member

   var a,b,c:integer;
   begin
   for a:= 1 to 20 do
   for b:= 1 to 20 do
   for c:= 1 to 20 do
   begin
   if a*a+b*b=c*c then
   writeln(a:4,b:4,c:4);
   end;
   end.

    

   mahimich, 2 мар 2010

   #2

Ваше имя или e-mail:

Пароль:

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

Запомнить меня