Это, если не учитывать, что введённые числа могут быть одинаковы
program p17;
var
x, x1, x2: integer;
a,a1,a2: integer;
beginwrite ('Введите число: ');
readln (x);
write ('Введите число: ');
readln (x1);
write ('Введите число: ');
readln (x2);
if (x>x1) and (x>x2) then a:=x
else if (x1>x) and (x1>x2) then a:=x1
else if (x2>x) and (x2>x1) then a:=x2;
if (x<x1) and (x<x2) then a1:=x
else if (x1<x) and (x1<x2) then a1:=x1
else if (x2<x) and (x2<x1) then a1:=x2;
a2:=a+a1;
writeln ('Cумма самого большого и самого маленького числа, введённого вами: ',a2);
end.
Var a,b,c,p,S:real;
begin
writeln('Введите A: ');readln(a);
writeln('Введите B: ');readln(b);
writeln('Введите C: ');readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) and (a>0) and (b>0) and (c>0) then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('S = ',s)
end
else
writeln('Стороны треугольникавведены неверно!');
end.
2)a,=Z(3)
3)<span>Z(a)=(b)
5)вывод a,'+',b,'='
6)вывод 'Z(',a,')=F(',b,')'
7)вывод 'a=',a,';b=',b,';'</span>
<span>1.В кастрюлю налить кефир.
2.</span><span>Вылить молоко
3.</span><span>Добавить сливки.
</span><span>4.Вбить яйца.
</span><span>5,Положить соль.
</span><span>6,Всыпать сахар.
</span><span>7,Всыпать разрыхлитель.
</span><span>8.Добавить муку. Тесто по консистенции должно напоминать жидкую сметану.
</span>9.Все как следует перемешать и оставить на час при комнатной температуре, затем убрать на ночь в холодильник<span>. Если планируете выпекать сразу, дайте тесту постоять минут 15-20 и приступайте к выпечке.
</span><span>10,Сковороду накалить, смазать маслом
</span><span>11,Выливая небольшое количество теста распределять его по всей поверхности сковороды.
</span><span>12,Выпекать с двух сторон до золотистого цвета, буквально по полминутки.
</span><span>13,Готовые блины складываем стопкой, промазывая каждый блин сливочным маслом.
</span><span>14,Подать блины к столу со сметаной, вареньем, медом или сгущенкой.</span>
131(10)=10000011(2)
63(10)=111111(2)
255(10)=11111111(2)