Ну чисто по-человечески. информатика для меня - сущий ад.

вводится целое положительное число а< =109. найдите сумму цифр введённого числа. соберите программу путём выбора правильных команд из предложенного набора:

tarringate tarringate    2   07.02.2020 22:39    0

Ответы
korolevdanil99 korolevdanil99  11.10.2020 04:07

var a,b,s:integer;

begin

   readln(a);

   s:=0;

   while a>0 do

   begin

   b:=a mod 10;

   a:=a div 10;

   s:=s+b;

   end;

 writeln ('s=',s);

end.

Объяснение:

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