ответ:1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var i,s:integer;
b:real;
begin
clrscr;
repeat
write('Введите положительное число b=');
readln(b);
until b>0;
i:=1;
s:=0;
while s+i+1<=b do
begin
i:=i+1;
if i mod 2=0 then s:=s+i;
end;
write('Нужно сложить ',i,' чисел, сумма четных=',s);
readln
end.
Объяснение:
