Задать вопрос
16 августа, 08:48

Ввести с клавиатуры 10 целых чисел. Подсчитать количество нечётных (в паскаль турбо)

+2
Ответы (1)
  1. 16 августа, 11:11
    0
    Program;

    Uses vincrt;

    Var i, n: integer

    Begin

    i:=0;

    writeln ('n=') ;

    Raedln (n) ;

    If (n mod 2 = 1) then i:=i+1;

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