С клавиатуры вводятся целые числа до тех пор пока не введенно трехзначное число. Найдите сумму введенных чисел, кроме последнего. Paskal.

Question

Информатика

Иулий

12 октября, 15:17

С клавиатуры вводятся целые числа до тех пор пока не введенно трехзначное число. Найдите сумму введенных чисел, кроме последнего. Paskal.

+3

Ответы (1)

Знаете ответ на вопрос?

Иванна · Answer 1

Var a, s, m: integer;

begin

while m < 5 do begin

read (a) ;

s : = s + a;

if (a div 100 > 0) and (a div 100 < 10) then m : = 5;

end;

writeln (s-a) ;

end.