• Найти сумму трехзначных чисел. Использовать цикл с параметром.
    (Сделайте в ПАСКАЛЬ, пожалуйста)

Ответы 6

  • Я переписал программу, исходя из более трезвого состояния. Буду рад, если она Вам пригодится.
    • Автор:

      bubba
    • 5 лет назад
    • 0
  • Cкачал, программа работает, но не то, что мне надо:(
  • ввожу например 111, а их тупо складывает и получается 3, а необходимо вводить 2 трехзначных числа и получить их сумму, как я понял по заданию
  • Посмотрите переписанную программу.
  • Скопируйте текущий код. Я его переписал.
    • Автор:

      rykerbscy
    • 5 лет назад
    • 0
  • Program Сумма;varotvet:String;sled:= true; chislo:=0;i,b, summa:integer;BeginWrite('Сколько чисел вы хотите суммировать?');Read(b);for i:=1 to b doBeginWrite('Введите трёхзначное число: ');Read(chislo);while (chislo <100) or (chislo >1000) doBeginWrite('Число не трёхзначное, попробуйте ещё раз!');Read(chislo);End;summa+=chislo;End;Write('Сумма равна ', summa);End.
    • Автор:

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

Войти через Google

или

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

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

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