31 августа, 01:11

Вводятся 3 числа, вывести на экран нечетные числа pascal

+1
Ответы (1)
  1. 31 августа, 01:28
    -1
    var

    a, b, c:integer;

    begin

    readln (a) ; readln (b) ; readln (c) ;

    if a mod 2 0 then

    Writeln ('Первое нечетное')

    else if a mod 2 = 0 then

    Writeln ('Первое четное') ;

    if b mod 2 0 then

    Writeln ('Второе нечетное')

    else if b mod 2 = 0 then

    Writeln ('Второе четное') ;

    if c mod 2 0 then

    Writeln ('Третие нечетное')

    else if c mod 2 = 0 then

    Writeln ('Третие четное') ;

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