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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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