Помогите написать программы на Delphi

Vilkoss · 22.11.2011, 20:26

1) Дано натуральное число n. Получить все пифагоровы тройки натуральных чисел, каждое из которых не превосходит n, то есть все такие тройки чисел a, b,c, что a2+b2=c2.

2)В одномерном массиве, состоящем из 20 вещественных элементов (значения элементов массива задать случайными числами из интервала
[-5, 8]), вычислить сумму элементов массива, расположенных до последнего положительного элемента. Сформировать из этих элементов новый массив.

xman · 25.11.2011, 08:43

На каких условиях сделать проги?

А что, альтруизм уже не в моде? Ваш модератор.

xman · 26.11.2011, 07:35

А что, на этом форуме только альтруисты находятся?

22.11.2011, 20:26	#1 (permalink)
Vilkoss Новичок Регистрация: 22.11.2011 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите написать программы на Delphi 1) Дано натуральное число n. Получить все пифагоровы тройки натуральных чисел, каждое из которых не превосходит n, то есть все такие тройки чисел a, b,c, что a2+b2=c2. 2)В одномерном массиве, состоящем из 20 вещественных элементов (значения элементов массива задать случайными числами из интервала [-5, 8]), вычислить сумму элементов массива, расположенных до последнего положительного элемента. Сформировать из этих элементов новый массив.

25.11.2011, 08:43	#2 (permalink)
xman Новичок Регистрация: 25.11.2011 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 95	На каких условиях сделать проги? А что, альтруизм уже не в моде? Ваш модератор.

26.11.2011, 07:35	#3 (permalink)
xman Новичок Регистрация: 25.11.2011 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 95	А что, на этом форуме только альтруисты находятся?

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070