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.
Держи мой шаблон работы с матрицами, как раз пока только минимумы и максимумы
const handsfree = true;
var a: array[1..100, 1..100] of real; max, min: real; i, j, m, n: integer;
begin {ввод матрицы} if handsfree then begin n := random(20) + 2; m := random(20) + 2; end else begin write('n, m ='); readln(n, m); end;
writeln('Данные матрицы:'); for i := 1 to m do begin for j := 1 to n do if handsfree then begin a[i, j] := random(100) - 50; write(a[i, j]:4, ' ') end else read(a[i, j]); writeln; end;
{минимумы и максимумы} max := a[1, 1]; min := a[1, 1]; for i := 1 to m do for j := 1 to n do begin if max < a[i, j] then max := a[i, j]; if min > a[i, j] then min := a[i, j]; end; writeln('max = ', max); writeln('min = ', min); end.
Определяеться что??
Объяснение: