Question

2. Сколько натуральных четных чисел нужно сложить, начиная с 2, чтобы их сумма превысила 1000?

Answer 1

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

Объяснение: