bertran1872
Program pr2; var x, y:real; begin writeln('Введи координаты: '); readln(x,y); if ((x<0) and (y>0)) or ((x>0) and (y>0)) then if x<0 then begin x:=-x; if x=y then writeln('На границе') else if x>y then writeln('Нет') else writeln('Нет') end else if x=y then writeln('На границе') else if x>y then writeln('Нет') else writeln('Нет') else writeln('Да'); end. program pr5; var a, b, c: integer; begin writeln('Введи значения длин сторон: '); readln(a,b,c); if a=b then if b=c then writeln('Треугольник расносторонний') else writeln('Треугольник нерасносторонний') else writeln('Треугольник нерасносторонний'); end. Шетсую тебе скинули
Answers & Comments
var x, y:real;
begin
writeln('Введи координаты: ');
readln(x,y);
if ((x<0) and (y>0)) or ((x>0) and (y>0)) then
if x<0 then begin
x:=-x;
if x=y then writeln('На границе')
else if x>y then writeln('Нет')
else writeln('Нет')
end
else if x=y then writeln('На границе')
else if x>y then writeln('Нет')
else writeln('Нет')
else writeln('Да');
end.
program pr5;
var a, b, c: integer;
begin
writeln('Введи значения длин сторон: ');
readln(a,b,c);
if a=b then
if b=c then writeln('Треугольник расносторонний')
else writeln('Треугольник нерасносторонний')
else writeln('Треугольник нерасносторонний');
end.
Шетсую тебе скинули