• Определить количество
    трехзначных натуральных чисел, сумма 
    цифр которых равна  целому числу n

    Решить через WHILE и  REAPEAT

Ответы 6

  • А можешь еще одну задачу решить, только через FOR и While ?
    • Автор:

      andres
    • 5 лет назад
    • 0
  • Какую?
    • Автор:

      lucaloul
    • 5 лет назад
    • 0
  • там нужно найти значение выражения, но картинки не предаются через комментарии
    • Автор:

      pixie32
    • 5 лет назад
    • 0
  • Создай ещё задание или ссылку в личку на картинки кинь, а в идеале - просто напиши)
  • http://znanija.com/task/6811408
  • var  n, i, s: integer;begin  readln(n);  i := 100;  while (i <= 999) do  begin    if (i mod 10 + i div 10 mod 10 + i div 100 = n) then      inc(s);    i := i + 1;  end;  writeln(s);    s := 0;  i := 100;  repeat    if (i mod 10 + i div 10 mod 10 + i div 100 = n) then      inc(s);    i := i + 1;  until (i = 999);  writeln(s);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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