Вопрос по информатике:
Введите три стороны треугольника. Определите вид (равнобедренный, разносторонний, равносторонний)
Пожаловаться
- 25.01.2016 14:58
- Информатика
- remove_red_eye 2531
- thumb_up 7
Ответы и объяснения 1
Var a,b,c : integer;
begin
readln (a,b,c);
if (not (a=b)) and (not (b=c)) and (not (a=c)) then writeln('разносторонний')
else if ((a=b) and (not (b=c)) and (not (a=c))) or ((b=c) and (not (b=a)) and (not (c=a))) or ((a=c) and (not (a=b)) and (not (c=b))) then writeln('равнобедренный')
else writeln('равносторонний');
readln;
end.
begin
readln (a,b,c);
if (not (a=b)) and (not (b=c)) and (not (a=c)) then writeln('разносторонний')
else if ((a=b) and (not (b=c)) and (not (a=c))) or ((b=c) and (not (b=a)) and (not (c=a))) or ((a=c) and (not (a=b)) and (not (c=b))) then writeln('равнобедренный')
else writeln('равносторонний');
readln;
end.
Пожаловаться
- 26.01.2016 12:53
- thumb_up 6
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы