Помогите составить программу
вводится числа найти сумму этих чисел не превосходящую S

1

Ответы и объяснения

2014-01-16T23:20:23+04:00
Uses crt;
var
s,x,sum: real;
begin
clrscr;
sum:=0;
write ('S=');
readln (s);
writeln ('Введите числа:');
while sum<s do
begin
read (x);
sum:=sum+x;
end;
if sum>s then
begin
sum:=sum-x;
writeln ('sum=',sum);
end
else
writeln ('sum=',sum);
readln ();
end.