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

Question

Федяха

20 мая, 15:13

+4

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