Предмет: Информатика,
автор: Shkedebe3
Ребят, помогите пожалуйста и информатикой, это очень срочно.
Если не видно 3 то вот: 3.написать программу на Pascale, определяющую является ли равносторонним треугольник со сторонами a,b,c.( Использовать оператор ветвления < if> и логические операции)
Приложения:
Shkedebe3:
Ну пожалуйста, помогите (((
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Другие предметы,
автор: Timik500
Предмет: Русский язык,
автор: iman2003
Предмет: Русский язык,
автор: Zabuvajlonadia1
Предмет: Литература,
автор: kotikkotik20189
Предмет: Русский язык,
автор: acucaeva21gmailcom