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

Question

Януарий

21 января, 21:19

+3

Ответы (2)

Знаете ответ на вопрос?

Снандулия · Answer 1

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.

Алина · Answer 2

Вроде так.

K : = N div 2;

if Odd (N) then Inc (K) ;

WriteLn (K) ;