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.
Var s:string; n,k,i:integer; begin for n:=1 to 2 do begin writeln('Введите строку ',n,':'); readln(s); k:=0; for i:=1 to length(s) do begin case s[i] of '[': k:=k+1; ']': k:=k-1; end; end; if k=0 then writeln('В строке ',s,' количество [ и ] одинаково') else writeln('В строке ',s,' количество [ и ] не одинаково'); end; end.
Пример: Введите строку 1: c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково Введите строку 2: Просто [ пример ]] со [[ скобками В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково
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.
Блок-схемы в приложении: