<em>// PascalABC.NET 3.2, сборка 1345 от 24.11.2016</em>
begin
var a,b,c:real;
Write('Введите a,b,c: '); Read(a,b,c);
Writeln(min(c,max(a,b)))
end.
<u>Пример</u>
Введите a,b,c: 8.2 -0.1 1.2
1.2
К примеру. <span>ŀx+1l
</span>Модулем действительного число называется расстояние от начала отсчёта до точки, соответствующей данному числу. Например, I4I=4, I-5I=5, I0I=0.
Есть ещё такое определение. Оно используется при решении уравнений и неравенств.
IХI=Х, если Х>=0 (модуль неотрицательного числа равен самому себе)
IХI=-Х, если Х<0 (модуль отрицательного числа равен числу, ему противоположному) .
В Вашем примере:
Iх+1I=х+1, если х+1>=0, то есть х>=-1
<span>Iх+1I=-х-1, если х+1<0, то есть х<-1</span><span>
</span>
Var
n,k,sum:integer; s,s1:string;
begin
write('n = '); readln(n);
s:='';
sum:=0;
while (n>0)and(n mod 2 = 0) do
begin
k:=n mod 10;
str(k,s1);
s:=s1+'+'+s;
sum:=sum+k;
n:=n div 10;
end;
if s<>'' then s[length(s)]:='=';
writeln(s,sum);
end.
Пример:
n = 1784
8+4=12
12. Переменной d будет присвоено значение b.
Ввод текста
редактирование
форматирование
печать