Boolean30. Даны целые числа $$a$$, $$b$$, $$c$$, являющиеся сторонами некоторого треугольника. Проверить истинность высказывания: «Треугольник со сторонами $$a$$, $$b$$, $$c$$ является равносторонним».
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 |
program Boolean30; var a, b, c: Integer; begin Write('Введите 1 сторону треугольника: '); Readln(a); Write('Введите 2 сторону треугольника: '); Readln(b); Write('Введите 3 сторону треугольника: '); Readln(c); if Writeln((a=b) and (a=c)); end. |
Другие задачи из раздела Boolean можно посмотреть здесь.
если а=b и а=с то и с=b, выходит что все цифры данного числа одинаковы… я правильно понял?
Да, всё верно. Условие (a=b) and (b=a) and (a=c) избыточно.
поправил.
было:
if Writeln( (a=b) and (b=a) and (a=c) );стало:
if Writeln((a=b) and (a=c));