Определить, что треугольник со сторонами a, b, c является равносторонним - Pascal ABC
Формулировка задачи:
Задание:
Для каждой задачи составить программу, выводящую значение TRUE, если указанное высказывание является истинным, и FALSE, - в противном случае (использовать условный оператор нельзя).
Уровень 1
1. Треугольник со сторонами a,b,c является равносторонним.
2. Целое число N является четным двузначным числом.
3. Треугольник со сторонами a,b,c является равнобедренным.
4. Среди чисел a,b,c есть хотя бы одна пара взаимно противоположных чисел.
Решение задачи: «Определить, что треугольник со сторонами a, b, c является равносторонним»
textual
Листинг программы
var f:boolean; 1. f:=(a=b)and(a=c); 2. f:=(n in [10..99])and(n mod 2=0); 3. f:=((a=b)and(a<>c))or((a=c)and(a<>b))or((b=c)and(b<>a)); 4. f:=(a=-b)or(a=-c)or(b=-c); write(f);
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д