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

Ответы 5

  • При вводе двузначного и однозначного проверка не рвботает.
  • не работает*
    • Автор:

      karachen
    • 5 лет назад
    • 0
  • Исправил, замените 7 строку на это until(n<999)and(n>100)and(n>-999)or(n>-999)and(n<-100);
    • Автор:

      evelyn
    • 5 лет назад
    • 0
  • Либо "n > 99", либо "n>=100"///
    • Автор:

      jett44
    • 5 лет назад
    • 0
  • var sum:real;n:integer;beginrepeatwriteln('Введите трёхзначное число');readln(n);until(n<999)and(n>100)and(n>-999)or(n>-999)and(n<-100);sum:=(n div 100)+((n div 10) mod 10)+(n mod 10);writeln('Сумма чисел равна ', sum);end.При копировании всё становится в одну строку, решение на картинке
    answer img
  • Добавить свой ответ

Войти через Google

или

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

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

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