Question

Дз по информатике.
Нужно сложить сумму всех однозначных чисел. ​

Answer 1

Ответ:

var a,i,s: integer;

begin

 for i:=0 to 9 do begin

   a:=i;

   s:=s+a;

   inc(a);

 end;

 writeln(s);

end.