Задать вопрос
22 июля, 13:08

Посчитать количество четных чисел в промежутке от n до 100. С помощью програмированния на языке Pascal

+3
Ответы (1)
  1. 22 июля, 16:37
    0
    Var

    n:integer;

    begin

    Write ('n = ') ; ReadLn (n) ;

    if n mod 2 = 0 then Write ((Abs (n-100) + 1) div 2+1)

    else Write (Abs (n-100) div 2+1)

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Посчитать количество четных чисел в промежутке от n до 100. С помощью програмированния на языке Pascal ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы