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

какм1 какм1    3   23.02.2021 00:19    0

Ответы
Непатриот Непатриот  23.02.2021 01:00

var a,i,s: integer;

begin

 for i:=0 to 9 do begin

   a:=i;

   s:=s+a;

   inc(a);

 end;

 writeln(s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика