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

Question

Информатика

Петрака

21 января, 19:48

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

+2

Ответы (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.