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

Question

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

Answer 1

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

Comments

двоеточие)

---

Эх, нет, не знаю я старый Pascal. Да и ещё задачу Вашу перечитал и понял, что моё решение -- сплошная глупость. Я могу всё переписать, если вы скачаете компилятор PascalABC.NET'а при условии, конечно, что он подойдёт под заданные преподавателем требования.

---

v 4.0?

---

http://pascalabc.net/ 3.1

---

"3.1" не входит в ссылку

---

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

---

Cкачал, программа работает, но не то, что мне надо:(

---

ввожу например 111, а их тупо складывает и получается 3, а необходимо вводить 2 трехзначных числа и получить их сумму, как я понял по заданию

---

Посмотрите переписанную программу.

---

Скопируйте текущий код. Я его переписал.