Найти количество четных чисел в промежутке от 1 до N. N вводится с клавиатуры. В Паскале!!!
Вроде так.
K := N div 2;
if Odd(N) then Inc(K);
WriteLn(K);
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
