Вопрос по информатике:
Pascal, цикл while или repeat
Ввести число. Определить сумму цифр в первой половине числа .
Пример, N=123456, результат 6.
Пожаловаться
- 06.03.2015 04:26
- Информатика
- remove_red_eye 3005
- thumb_up 11
Ответы и объяснения 2
Если вы уже прошли строки, то вот
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.
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.
Пожаловаться
- 07.03.2015 13:12
- thumb_up 44
Program n1;
var s: string;
sum,i: longint;
begin
sum := 0;
write('введите число: ');
readln (s);
for i := 1 to (length(s) div 2) do
sum := sum + (ord(s[i]) - 48);
writeln ('сумма 1 половины цифр числа равна ',sum);
end.
var s: string;
sum,i: longint;
begin
sum := 0;
write('введите число: ');
readln (s);
for i := 1 to (length(s) div 2) do
sum := sum + (ord(s[i]) - 48);
writeln ('сумма 1 половины цифр числа равна ',sum);
end.
Пожаловаться
- 08.03.2015 11:09
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы