Бексултан придумывает задачи по математике, а Данияр оценивает сложность придуманной задачи. Если Данияр ставит строго строго больше 5 из 10, то задача считается сложной, а если меньше, то является легкой. Напишите программу, которая введенной задачи определена, является ли задача легкой или тяжёлой. Вводные данные: одно число - оценка задачи, которую поставил Данияр.
Выходные данные: на одной строке текст "hard", если тяжелая. И "легко", если легкая.
Пример 1
Ввод :
1
Вывод :
легко
Пример 2
Ввод :
6
Вывод :
жесткий
Пример 3
Ввод :
2
Вывод :
легко
i, a, b, c: integer;
function check_is(a, b, c: integer):
boolean;
begin
if a >= b + c then check_is := false
else if b >= a + c then
check_is := false else
if c >= a + b then check_is := false else
check_is := true;
end;
procedure check_how(a, b, c: integer);begin
if ((a = b) and (b = c) and (a = c)) then writeln('равносторонний') else
if ((a = b) or (b = c) or (a = c)) then writeln('равнобедренный') else writeln('разносторонний');
end;
begin
writeln('Введите стороны треугольника');
read(a, b, c);
if check_is(a, b, c) then check_how(a, b, c) else writeln('Нет такого треугольника!');
end.
var a,b,c,z:integer;
begin
readln(a, b, c);
z:=0;
if (a > b) and (a > c) then begin
z:= b+c;
if a >= z then
writeln('Это не треугольник')
else write('Это разностороний треугольник');
end
else if (b > a) and (b > c) then begin
z:= a+c;
if a >= z then
writeln('Это не треугольник')
else write('Это разностороний треугольник');
end
else if (c > a) and (c > b) then begin
z:= b+a;
if a >= z then
writeln('Это не треугольник')
else write('Это разностороний треугольник')
end
else if (a = b) and (a = c) then
write('Это равностороний треугольник')
else write('Это равнобедренный треугольник');
end.
Объяснение: