Решение задач «Программирование разветвляющихся алгоритмов»

⇐ ПредыдущаяСтр 2 из 2

var

a, b, c: real;

begin

writeln ('Введите a, b, c');

readln (a, b, c);

if(a<b+c) and(b<a+c) and (c<a+b)

then if (a=b) and(b=c)

then writeln ('Равносторонний')

else if (a=b) or (b=c) or (a=c)

then writeln ('Равнобедренный')

else writeln ('Разносторонний')

else writeln ('Не существует')

end.

1) Не существует

2) Равносторонний

3) Равнобедренный

4) Разносторонний

Решение задач «Программирование разветвляющихся алгоритмов»

Даны три натуральных числа. Напишите программу, определяющую, существует ли треугольник с такими длинами сторон. Если такой треугольник существует, то определите его тип (равносторонний, равнобедренный, разносторонний).

Выполнить программу для исходных данных:

1) a=1, b = 2, c = 1

2) a=2, b = 2, c = 2

3) a=20, b = 20, c = 30

4) a=3, b = 4, c = 5

Решение задач «Программирование разветвляющихся алгоритмов»

Выполнить программу для исходных данных:

1) a=1, b = 2, c = 1

2) a=2, b = 2, c = 2

3) a=20, b = 20, c = 30

4) a=3, b = 4, c = 5

Решение задач «Программирование разветвляющихся алгоритмов»

Выполнить программу для исходных данных:

1) a=1, b = 2, c = 1

2) a=2, b = 2, c = 2

3) a=20, b = 20, c = 30

4) a=3, b = 4, c = 5

⇐ Предыдущая 12