составить программу на паскале Дано натуральное число,найти ...
составить программу на паскале Дано натуральное число,найти сумму цифр этого числа!
Есть ответ
17.12.2022
491
Ответ
Program Program1;vari,sum,n,code:integer;s:string;beginwrite('Введите натуральноее число: ');readln(s);
sum:=0;for i := 1 to Length(s) dobeginVal(s[i], n, code);sum:=sum + n;end;writeln('Сумма цифр: ', sum)end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
