Предмет: Информатика,
автор: Dragonheart
ПОМОГИТЕ , ПОЖАЛУЙСТА,СРОЧНО!!!!!
Опиши постановку проблемы и составь алгоритм к следующим задачам:
1) Найти наибольшее из трёх целых чисел.
2) Дано a, b, c - стороны предполагаемого треугольника.
Требуется сравнить длину каждого отрезка с суммой двух других. Если хотя бы в одном случае отрезок окажется больше суммы двух других, то треугольника с такими сторонами не существует.
Ответы
Автор ответа:
2
1)
var
i, mx, num:integer;
begin
mx:=-1;
for i:=1 to 3 do
begin
readln(num);
if num>mx then
mx:=num
end;
write(mx);
end.
2)
var a, b, c:integer;
begin
write('Введите сторону а: ') ;
readln(a) ;
write('Введите сторону b: ') ;
readln(b) ;
write('Введите сторону c: ') ;
readln(c) ;
if (a+b<c) or (b+c<a) or (c+a<b) then
write('Такого треугольника не существует')
else
write('Такой треугольник существует') ;
end.
Dragonheart:
спасибо!
Интересные вопросы
Предмет: Английский язык,
автор: msulyasha
Предмет: Русский язык,
автор: голллллшшш
Предмет: Русский язык,
автор: nadinrpn
Предмет: Математика,
автор: artemsay2003
Предмет: Геометрия,
автор: Iluhabro1