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

Срочно, помогите, проошууу, номер 4.23 под (а)

  1. Ответ
    Ответ дан SkyBy
    var a,a1,a2: integer;
    begin
    write ('Введите двузначное число: '); read (a);
    a1:=a div 10;
    a2:=a mod 10;
    if (a1>a2) then writeln ('Первая цифра ',a1, ' больше второй цифры ',a2);
    if (a2>a1) then writeln ('Вторая цифра ',a2, ' больше первой цифры ',a1);
    if (a1=a2) then writeln ('Цифры одинаковые.');
    end.
Самые новые вопросы