Просто прошу HELP.....

[stalker]

1)Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна К(К- вводится с клавиатуры).
2)Найти все такие тройки натуральных чисел X,Y и Z из интервала от 1 до 20 для которых выполняется равенство x(в квадрате)+y(в квадрате)-z =0.

Сделать задачу используя While или Case, то есть нажимаем 1 выполняется первая задача, нажимаем 2 выпол…….
Помогите пожалуйста , кто сможет – просто не успеваю, готовлю курсовую….
Заранее благодарю……

[zetrix]

2)
for x:=1 to 20 do
for y:=1 to 20 do
for z:=1 to 20 do
begin
if sqr(x)+sqr(y)-z=0 then... // делаем то, что нужно.
end;

если нужно через while, то придётся заменять циклы for:

while x<20 do
begin
inc(x);
...
end;

[stalker]

Спасибо БОЛЬШОЕ......RESPECT......
не сочти за наглость помоги решить другую....

Дан массив целых чисел, заполненный случайным образом.
1)Заменить минимальный по модулю положительный элемент нулём.
2)Заменить элементы с К1-го и К2-й на обратные.
3)Из элементов массива А сформировать массив С той же размерности по правилу:
Первые 10-ть элементов Di=Ai+I, остальные Di=Aj-i.
Сделать тоже как и первую через Case или While…..
Заранее благодарю…….
Помогите не успеваю….

[Time]

1)Заменить минимальный по модулю положительный элемент нулём.

Так минимальный по модулю или минимальный из положительных? Если положительный, то зачем по модулю? А то написана полная чуш!

Заменить элементы с К1-го и К2-й на обратные.

Тоже не понятно написано. Заменить все с к1-го по к2-ой или к1-ый и к2-ой? Я так предпологаю, что все с к1-го по к2-ой тебе надо. ДА?
По третей части вот:
Пусть kol - количество элементов в массиве.
A - исходный массив. Тогда:

 i := 1;
while i < kol  do
begin
case i of 
1..10:C[i] := A[i] + kol else C[i] := A[i] - kol;
i := i + 1;
end;

C - Это и будет новый массив.

[stalker]

Спасибо еще раз.....
А на счет заданий которые ты не понял, я сам не догнал, но перепечатал так как есть и условие не менял....
Ещё раз спасибо....

[Time]

Заменить минимальный по модулю элемент нулём можно так (через while):

i := 1;
min := A[1];
k := 1;
while i < kol do
begin
if abs(A[i]) < min then 
 begin 
  min := abs(A[i]);
  k := i;
 end;
i := i + 1;
end;
A[k] := 0;

[Time]

Заменить все элементы с к1-ого по к2-ой на противоположные можно так:

i := k1;
while i < k2 do
begin
 A[i] := - A[i];
 i := i + 1;
end;

[Alar]

тема закрыта, топикстартеру штраф.