profile
Опубликовано 5 лет назад по предмету Информатика от smerch20

Написать поограмму в pascal abc. Дано 5 значное число выделить 2,3,4 цифру и выяснить является нечетным. зарание спасибо.

  1. Ответ
    Ответ дан PopCop312
    var a:integer;
    b:boolean;
    begin
    readln(a);
    writeln(a div 10 mod 1000);
    if a mod 2 <> 0 then b:=true;
    writeln(b);
    end.
    1. Ответ
      Ответ дан smerch20
      блин чувак ты меня спасаешь. спасибо тебе большое
Самые новые вопросы