МР
Маргарита Романова
Помогите с задачей по Паскалю
Дано натуральное число n. Найти наибольшее среди чисел (k=1,...n), а также сумму всех этих чисел.
Найти наибольшее среди чисел а также сумму всех этих чисел
Дано натуральное число n. Найти наибольшее среди чисел (k=1,...n), а также сумму всех этих чисел.
Найти наибольшее среди чисел а также сумму всех этих чисел
Первая половина - наибольшее число - n.
Вторая половина - (1+n) * n / 2;
Что то не так в вашем задании. Наибольшее из чисел 1...N полубому выходит N.
Сумма считается элементарно
function summall(num:integer):integer;
begin
if num=1 then summall:=num else summall:=num+summall(num-1);
end;