Найти количество четных чисел в промежутке от 1 до N. N вводится с клавиатуры. В Паскале!

Question

Раиса

26 декабря, 16:10

+1

Ответы (2)

Знаете ответ?

Мальвина · Answer 1

Вроде так.

K : = N div 2;

if Odd (N) then Inc (K) ;

WriteLn (K) ;

Ангелика · Answer 2

1. program AB;

2. var s, n : integer;

3. begin

4) s : = 0;

5. for n : = 1 to 10 do if n mod 2 = 0 then s : = s + 1;

6. writeln (s) ;

7. end.