Дано натуральное число.определить сумму его цифр, больших 5

Question

Дано натуральное число.определить сумму его цифр, больших 5

Comments

Хотя... по сути можно и без.

---

Есть проблема, дело в том, что я всегда пишу мягко говоря неоптимизированно, тебя не спросят, что и для чего, если код покажешь?)

---

да

---

Итак, перед написанием. Вводится натуральное число, к примеру 125, необходимо определить сумму его цифр, которые превышают 5? Таким образом: 1 + 2 + 5(не учитывается, т.к. 5 не больше 5), сумма: = 3. Я правильно понял?

---

вроде

---

а на паскале сразу можно было

---

В каком смысле на паскале сразу можно было?

---

на паскале.var a,b:....................

---

Сделал вроде, держи ответ.

---

спасибо

Answer 1

Программа слаживает все цифры натурального числа, введённого пользователем, и выполняет из них сумму:



var  r: real;  s: string;  q: integer;  sum: real;  i: integer;
begin    Write(' Введите натуральное число: ');    Readln(r);    s := FloatToStr(r);    q := length(s);    for i := 1 to q do    begin        r := StrToFloat(s[i]);        if r > 5 then      sum := sum + r;       end;    writeln(' Сумма всех чисел, превышающих 5 = ', sum, '.');  end.