Вводится одно целое число не превосходящие 104 подсчитать сумму чисел до 1 и до 104
Вводится одно целое число не превосходящие 104 подсчитать сумму чисел до 1 и до 104
Гость
Ответ(ы) на вопрос:
ГостьVar
a,i,n:integer
begin
Readln(a);
for i:=a to 1 do
n:=n+I;
writeln(n);
end.
Не нашли ответ?
Похожие вопросы