Question

ИНФОРМАТИКА 9 КЛАСС. СОСТАВЬТЕ БОК СХЕМУ ДЛЯ 4 ЗАДАНИЯ. Буду очень признателен

Answer 1

var
n,s:integer;
l:=2;
begin
read(n,s);
if l<=n do
s:=s+l;
l:=l+1;
else
end.