Question

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

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

Answer 1

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.

 

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

Answer 2

2)var a, b:integer;

begin

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

readln(a, b);

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

else writeln('min=', b);

readln;

end.