Определить сумму цифр введенного числа a (a меньше 1000) в паскале, через for
Определить сумму цифр введенного числа 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;
Гостьvar a, sum, i: integer;
begin
writeln('Enter number: ');
readln(a);
sum := 0;
for i:=1 to a do
begin
sum := sum + n mod 10;
n := n div 10 end;
end;
writeln('Sum of digits = ', sum);
readln;
end.
Не нашли ответ?
Похожие вопросы