Найти сумму последовательности чисел от 1 до n , где n вводится с клавиатуры
Найти сумму последовательности чисел от 1 до n , где n вводится с клавиатуры
Гость
Ответ(ы) на вопрос:
Гостьprogram sum;
var
sum ,n , i : integer;
begin
readln (n);
for i:= 1 to n do
sum:= sum + i;
writeln (sum);
end;
Не нашли ответ?
Похожие вопросы