Найти сумму N первых натуральных чисел ПАСКАЛЬ
Найти сумму N первых натуральных чисел ПАСКАЛЬ
Гость
Ответ(ы) на вопрос:
Гостьvar n,s,a:integer;
begin
readln(n);
for n:=n downto 1 do begin
read(a);
s+=a;
end;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы