Определить сумму его цифр, больших a (значение a вводится с клавиатуры, 0<=a<=8).

[Anonim123]

Дано натуральное число. Определить сумму его цифр, больших a (значение a вводится с клавиатуры, 0<=a<=8).

[Vanta11a]

И в чем проблема?

[Serge_Bliznykov]

угу. при том, что на форуме полно подобных темы, где число разбирается на цифры.
например, ТЫЦ!
Вставить внутрь цикла проверку if ОднаЦифра > a then и вначале ввод числа a.
вот и всё, задача решена.

[Anonim123]

Я просто не совсем понимаю как определить число больше а или нет.

[Serge_Bliznykov]

Сообщение от Anonim123

Я просто не совсем понимаю как определить число больше а или нет.

а Вам и не надо определять, больше число или нет.
Вы же задание не внимательно прочитали, Вам нужно определить ЦИФРЫ числа, которые больше a

чтобы определить больше ли очередная цифра числа заданного значения в переменной a
нужно написать такой код:

if ЦифраЧисла > a then // цифра числа больше значения в переменной a

p.s. изучать язык программирования на форуме - не самая лучшая идея. Для этого есть книжки и лекции...

[Anonim123]

Сообщение от Serge_Bliznykov

а Вам и не надо определять, больше число или нет.
Вы же задание не внимательно прочитали, Вам нужно определить ЦИФРЫ числа, которые больше a

чтобы определить больше ли очередная цифра числа заданного значения в переменной a
нужно написать такой код:

if ЦифраЧисла > a then // цифра числа больше значения в переменной a

p.s. изучать язык программирования на форуме - не самая лучшая идея. Для этого есть книжки и лекции...

var
i, d, a: integer;

begin
write('Введите число:');
read(i);
write('Введите a: ');
read(a);
if (a > 0) and (a = 0) and (a = 8) and (a < 8) then
begin
d := i mod 10 + i mod 100 div 10 + i mod 1000 div 100 + i div 1000;
write('Сумма цифр заданого числа равна:');
write(d);
end;
end.

Вот я написала начала получается только, и сделала условие чтобы проверка выполнялась, когда число a вводим. А вот цифры как раз таки не пойму как проверить.

[ZX Spectrum-128]

Вам же ссылку дали
Прямо в тот фрагмент вставляете проверку цифры числа с переменной а и подсчет суммы.

[Anonim123]

Сообщение от ZX Spectrum-128

Вам же ссылку дали
Прямо в тот фрагмент вставляете проверку цифры числа с переменной а и подсчет суммы.

Легко Вам сказать!

[ZX Spectrum-128]

if (a > 0) and (a = 0) and (a = 8) and (a < 8) then

Переведите на русский и вдумайтесь в смысл.

 Sum:=0;
  repeat
    {получаем очередную цифру числа
      (справа налево!)    просто берём остаток от деления числа на 10}
    OneDigit := i mod 10;

    тут проверяем цифру в переменной OneDigit 
     на любые соответствия (равна она a или равна b или сколько раз она равна a 
       и т.д. и т.п.
     if onedigit>a then
        Sum:=sum+onedigit;
    {оставляем число, делённое на 10 - отбрасываем правую цифру}
    I:= i div 10;
  until I=0;

[Anonim123]

Сообщение от ZX Spectrum-128

Переведите на русский и вдумайтесь в смысл.

 Sum:=0;
  repeat
    {получаем очередную цифру числа
      (справа налево!)    просто берём остаток от деления числа на 10}
    OneDigit := i mod 10;

    тут проверяем цифру в переменной OneDigit 
     на любые соответствия (равна она a или равна b или сколько раз она равна a 
       и т.д. и т.п.
     if onedigit>a then
        Sum:=sum+onedigit;
    {оставляем число, делённое на 10 - отбрасываем правую цифру}
    I:= i div 10;
  until I=0;

Спасибо Вам огромнейшее!! Вы мне очень помогли!