Составить программу, печатающую...

Тема в разделе "Информатика", создана пользователем pridemax, 3 апр 2010.

  1. pridemax

    pridemax New Member

    Составить программу, печатающую значение true, если указанное высказывание истинно, и false, в противномслучае:


    1. Хотя бы одна цифра данного трехзначного числа N равна S.

    2. Числа N и R являются нечетными.
     
  2. chann

    chann New Member

    Program akifieva70;
    var n,s,r:integer;
    begin
    write('n=');read(n);
    write('s=');read(s);
    if (n div 100 = s) or (n mod 10 = s) or (n div 10 mod 10 = s)
    then write('TRUE')else write('FALSE');
    writeln;
    write('n=');read(n);
    write('r=');read(r);
    if (r mod 2 <>0) and (n mod 2<>0)  
    then write('TRUE')else write('FALSE');
    end.
     

Поделиться этой страницей

Наша группа