Дано натуральное число n>9 определить сумму цифр во второй половине этого числа напримерв числе n= 12345678 это сумма 5+6+7+8=26pascal Помогите. вот я написала сумму. теперь как ввести " во второй половине этого числа"?
Если число цифр нечетное, скажем, не 8, а 7? Тогда как половину определять? Половина - это 3 цифры, или 4 цифры?
Если при нечетном количестве цифр половина - это большая часть, то можно написать программу так: var n,k,s: integer;begin readln(n); k:=1; while k*k s:=0; while n>k do begin s:=s+n mod 10; n:=n div 10; end; writeln(s);end.
Строка не записалась, вместо строки while k*k s:=0; должно быть while k*k
Не прописывает символы, добавлю в ответ.
begin
var (n, S) := (ReadInteger, 0);
loop Trunc(Log10(n) + 1) div 2 do
S += n mod 10;
n := n div 10
end;
S.Println
end.
Если число цифр нечетное, то половиной считаем большую часть.
var n,k,s: integer;
readln(n);
k:=1;
while k*k
s:=0;
while n>k do
s:=s+n mod 10;
n:=n div 10;
writeln(s);