По информатике решите в паскале плз :3 3.Дано натуральное трехзначное число. Определить и вывести на экран большую цифру этого числа.
1.Дано натуральное трехзначное число. Определить и вывести на экран большую цифру этого числа.
5.Известен периметр квадрата p. Войдет ли круг с длиной окружности l в этот квадрат?
1.Арбуз считается спелым, если его плотность меньше, чем 0.85 г/см. Определить, является ли арбуз спелым, если известна его масса и длина большей окружности.
Var x,x1,x2,x3:integer; Begin Write('введите число'); Readln(x); X1:=x mod 10; X2:=x div 100; X3:=(x div 10) mod 10; If (x1>x2) and (x1>x3) then Write(x1); If (x2>x1) and (x2>x3) then Write(x2); If (x3>x2) and (x3>x1) then Write(x3); Readln End.