Информатика, опубликовано 2018-08-22 19:39:45 by Гость
Pascal, цикл while или repeat Ввести число. Определить сумму цифр в первой половине числа . Пример, N=123456, результат 6.
Ответ оставил Гость
Если вы уже прошли строки, то вот
program summa;
var
s: string;
I, sum: integer;
begin
sum := 0;
Readln (s);
for i := 1 to (length(s) div 2) do
sum := sum + (ord(s[i]) - 48);
Writeln (sum);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на