1. Треугольник будет существовать если будут выполнятся одновременно три неравенства: x + y > z x + z > y y + z > x
Программа:
var x, y, z: real; begin writeln('Введите стороны треугольника x, y, z: '); read(x, y, z); if (x + y > z) and (x + z > y) and (y + z > x) then writeln('Треугольник существует') else writeln('Треугольник не существует'); end.
2. Думаю, здесь излишни объяснения.
Программа:
var x, y, z: real; begin writeln('Введите три числа: '); read(x, y, z); writeln('В интервале (1; 3) лежат числа: '); if (x > 1) and (x < 3) then writeln(x); if (y > 1) and (y < 3) then writeln(y); if (z > 1) and (z < 3) then writeln(z); end.
function Summa(a,b:integer):string; var a1,b1:integer; begin //находим сумму первого числа a1:=(a div 1000)+((a div 100)mod 10)+((a mod 100)div 10)+(a mod 10);
//находим сумму второго числа b1:=(b div 1000)+((b div 100)mod 10)+((b mod 100)div 10)+(b mod 10);
//выясняем что больше if a1>b1 then Result:='Сумма цифр левого числа больше. Оно равно: '+IntToStr(a1) else Result:='Сумма цифр правого числа больше. Оно равно: '+IntToStr(b1); end;
procedure TForm1.Button1Click(Sender: TObject); begin //Выполнение и вывод результата функции через нажатие кнопки Label1.Caption:=Summa(StrToInt(Edit1.Text),StrToInt(Edit2.Text)); end;
Відповідь:
print()
Пояснення: