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

Ответы:

РОДИОН ЗАБОЛОТНЫЙ

05-02-2017 02:08

Вроде так. K := N div 2; if Odd(N) then Inc(K); WriteLn(K);

РАДИСЛАВ ЛЕВЧЕНКО

05-02-2017 04:34

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.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Софья Чумак

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Найти количество четных чисел в промежутке от 1 до N. N вводится с клавиатуры. В Паскале!!!» от пользователя Софья Чумак в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!