• даны целое трехзначное число N и цедое число k. написать программу, подсчитывающую сумму цифр числа N, которые больше k

Ответы 1

  • Var N,k,sum : Integer;Begin  sum:=0;  Readln(N,k);  While N>0 do  Begin   If (N mod 10)>k then sum:=sum+(N mod k);   N:=N div 10;  end;end.или такVar N,k,sum : Integer;Begin  sum:=0;  Readln(N,k);  While N>0 do  Begin   sum:=sum+(N mod 10)*Ord((N mod 10)>k);   N:=N div 10;  end;end.или такVar N,k : Integer;Function sum(N,k : Integer) : Integer;Begin  If (N>0) and ((N mod 10)>k) then sum:=(N mod 10)+sum(N div 10,k) else sum:=0;end;Begin  Readln(N,k);  Writeln(sum(N,k));end.
    • Автор:

      moshe
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years