|
Вернуться
| 1 Мас Мих В, 22 января 2010 г. 17:03:59 | |
Если не дублировать то измени
... for j:=i+1 to 20 do ...
Вроде не должно тогда дублировать (ни дельфей, ни паскаля нет, не проверить)
|
|
|
| 2 Подлеснов Владислав Олегович, 22 января 2010 г. 16:27:03 | |
Ну вот, что получилось навскидку. Правда, дублирует пары. Уж сам доработай.
var
i,j,k,p,s,n:integer;
a:array[1..20] of integer;
begin
for i:=1 to 20 do
a[i]:=i*i;
for i:=1 to 20 do
for j:=1 to 20 do begin
s:=a[i]+a[j];
p:=0;
for k:=1 to 20 do
if s=a[k] then begin p:=1; n:=k end;
if p=1 then writeln(i,' ',j,' ',n) end
end.
Выход:
3 4 5
4 3 5
5 12 13
6 8 10
8 6 10
8 15 17
9 12 15
12 5 13
12 9 15
12 16 20
15 8 17
16 12 20
|
|
|
Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!
| |
