Question

Ребят, помогите пожалуйста и информатикой, это очень срочно.
Если не видно 3 то вот: 3.написать программу на Pascale, определяющую является ли равносторонним треугольник со сторонами a,b,c.( Использовать оператор ветвления < if> и логические операции)

Answer 1

Ответ:

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.