дано естественное число.найти сумму его цифр, великих 5

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

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

да

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

вроде

а на паскале сходу можно было

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

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

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

спасибо

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



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 gt; 5 then      sum := sum + r;       end;    writeln(' Сумма всех чисел, превосходящих 5 = ', sum, '.');  end.