Pascal, цикл while или repeat Ввести число. Определить сумму цифр в первой половине числа . Пример, N=123456, результат 6.
21
ОТВЕТЫ
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.
Если вы уже прошли строки, то вот
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.
87
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Felharin
Pascal, цикл While или Repeat Ввести число. Получить другое ...
2019-05-23 08:36:18
Руфин
В MS Word набери слово жёсткий диск и сохрани ...
2019-05-23 08:33:55
Anasius
Вывести на экран все числа от 10 до 2030 ...
2019-05-23 08:30:49
Диодор
Записать таблицу в режиме отображения значений. ...
2019-05-23 08:27:59