Составьте алгоритм вычисления суммы (PascalABC): 1+(1+2)+(1+2+3)+...+(1+2+...+10);
Составьте алгоритм вычисления суммы (PascalABC): 1+(1+2)+(1+2+3)+...+(1+2+...+10);
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
sum := 0;
currentSum := 0;
for var i := 1 to 10 do
begin
currentSum := currentSum + i;
sum := sum + currentSum;
end;
writeln′Суммаравна:′,sum'Сумма равна: ', sum′Суммаравна:′,sum;