Question

Найдите сумму чисел натурального ряда, не превосходящих 17 (напишите программу). СРОЧНО ПОМОГИТЕ! НА PASCAL НАПИШИТЕ

Answer 1

Ответ:

var i,s: integer;

begin

s:=0;

for i:=1 to 17 do

s:=s+i;

writeln(s);

end.