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

1. дано натуральное двух значное число определить будет ли цыфра десятков больше чем цыфра единиц.Тема паскаль  

2) даны два натуральных числа вывести на экран то из них у которого цыфра меньше. пожалуйста решите 2 задачи

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

    Program p1;

    Uses crt;

    Var x:byte;

    Begin

     Write('Введите x, x=');

     Readln(x);

     If x mod 10> x div 10 then

     Writeln('Число единиц больше числа десятков') else

      If x mod 10< x div 10 then

      Writeln('Число десятков больше числа единиц ') else

       Writeln('Число десятков равно числу единиц ')

    End.

     

    Скажите, что за цифры сравниваются во втором задании?
    Я скину решение Вам  в личные сообщения.

  2. Ответ
    Ответ дан Lizka96

    2)var a, b:integer;

    begin

    writeln('Введите 2 числа');

    readln(a, b);

    if a<b then writeln('min=', a)

    else writeln('min=', b);

    readln;

    end.

     

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