Дан текст, в котором есть цифры, найти сумму всех этих цифр
10-11 класс
|
Папа принес домой одного птенца. Лена насыпала ему 5 крошек. Но бедняга даже не посмотрел на еду. Девочка вынесла клетку на улицу и поставила у порога. Слетелись 10 воробьёв. Вдруг одна воробьиха взяла в клюв крошку и подлетела к птенцу.
var Digits:set of '0'..'9';
st:string;
i,s,t,t1:integer;
Begin
read(st)
for i := 1 to length(st) do begin
if not (st[i] in Digits) then begin
s:=s+t;
t:=0;
end
else begin
t1:=integer(st[i]);
t:=t*10+t1;
end;
end;
writeln('s=',s)
End.
на руби куда легчеst=gets.to_s
st=st.gsub(/\D+/,',')
a=(st.split(","))
s=0
a.each_index do |i|
a[i]=a[i].to_i
s+=a[i]
end
p a
p s
Другие вопросы из категории
• выводит сумму в долларах по текущему курсу
Читайте также
д)сумму квадратов его цифр е)сумму кубов его цифр ж)его первую цифру з)сумму его первой и последней цифр
B<=100).
Выходнфе данные: вывести сумму всех целых чисел от А до В включительно.
Можно, пожалуйста, с объяснением.
от -10 до 30.найти кол-во положит и отриц элементов.найти сумму положит и произведение отриц.
- сумма первых трёх цифр и сумма последних трёх цифр.2.Полученные два числа записываются друг за другом в порядке не убывания (без разделителей).Пример.Исходное число:15177.Поразрядные суммы: 7 ,15.Результат: 715.Определите, сколько из приведенных ниже чисел могут получиться в результате работы автомата.2626 2618 2624 2628 2826 2426 1826 610.В ответ запишите только количество чисел ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!
2.Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Подсчитать, сколько слов расположено внутри этих скобок.
3.Дана строка. Удалить из нее все запятые и подсчитать, сколько получилось удаленных символов.
Помогите, пожалуйста!