Ребят, помогите пожалуйста и информатикой, это очень срочно.
Если не видно 3 то вот: 3.написать программу на Pascale, определяющую является ли равносторонним треугольник со сторонами a,b,c.( Использовать оператор ветвления < if> и логические операции)
Если не видно 3 то вот: 3.написать программу на Pascale, определяющую является ли равносторонним треугольник со сторонами a,b,c.( Использовать оператор ветвления < if> и логические операции)
More Questions From This User See All
Answers & Comments
Ответ:
1.var
x:integer;
y:real;
begin
readln(x);
y:=(5*x+x*x)/8;
print(y);
end.
2.var
x,z:integer;
begin
x:=1;
z:=7;
while z>=0 do
begin
z:=z-x;
x:=x*2;
end;
print(x);
end.
3.var
a,b,c:integer;
begin
readln(a);
readln(b);
readln(c);
if (a+b>c) and (a+c>b) and (c+b>a) and (a=b) and (b=c) and (a=c) then writeln('Равносторонний')
else writeln('Не является равносторнним')
end.