Составь алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного с клавиатуры натурального числа n. напиши программу на паскале.

133

161

Посмотреть ответы 2

Ответы на вопрос:

soneta991

Информатика

4,4(1 оценок)

Var n, sum : integer; begin write('a? '); readln ( a); for var i : = 1 to n-1 do sum : = sum + i; writeln(' сумма=', sum); end.

AikolNur

Информатика

4,4(87 оценок)

Ятак понимаю достаточно просто сделать выборки из этих таблиц - по резултсету на каждую, соответственно курсоров буит только 2. далее двойной цикл идёшь по элементам от главного до дочерних и строишь а вообще можно поробовать написать вид : elemenе_code|parent_code|element_name - order by по паренту - и за один проход можно попробовать сделать.