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

1.) Дано трехзначное число. Определить, какая из его цифр больше: a. первая или вторая; b. вторая или последняя.

  1. Ответ
    Ответ дан Ghost22

    a)

    Program Pr1;
    uses crt;
    var a,b,c:integer;
    Begin
    clrscr;
    readln(a);
    c:=a mod 10;
    a:=a div 10;
    b:=a mod 10;
    a:=a div 10;
    if a>b then writeln('Первая цифра >')
    else writeln('Вторая цифра больше');
    end.

    b)

    Program Pr1;
    uses crt;
    var a,b,c:integer;
    Begin
    clrscr;
    readln(a);
    c:=a mod 10;
    a:=a div 10;
    b:=a mod 10;
    a:=a div 10;
    if b>c then writeln('Вторая цифра >')
    else writeln('Третья цифра больше');
    end.

Самые новые вопросы