Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Определить сумму цифр введенного числа a (a<1000)
в паскале, через for

Ответ оставил Гость

//Инициализация a,i,sum//
//Ввод А//
if a>=1000 then readln
   else for i:=1 to A do
   sum:=sum+1;
writeln <,sum>;
readln;
end;