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

Question

Информатика

Наркис

26 ноября, 17:16

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

+5

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