Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите, пожалуйста, с задачкой на условный оператор!!!
Помогите, пожалуйста, с задачкой на условный оператор!!!
Определить, являеться ли триугольник со сторонами a, b, c равнобедренным?
1 | Автор: BeaU | 2009-06-03, 16:03   |  Репутация: [ + 0 ]
1 | Автор: BeaU | 2009-06-03, 16:03   |  Репутация: [ + 0 ]
стороны задаются длинной ?
тогда:

program trik;
var a,b,c:byte;
begin
write ('Введите А= ');
Readln (a);
write ('Введите B= ');
Readln (b);
write ('Введите C= ');
Readln ( c );

if ((a=b) or (b=c) or (a=c)) then writeln ('Равнобедренный') else
Write ('Не равнобедренный');
end.


Удваивается не в четыре, а в три раза!
2 | Автор: RedWoLF | 2009-06-03, 18:57 | Изменено: RedWoLF - Ср, 2009-06-03, 18:57   |  Репутация: [ + 3 ]
Пасиб))
3 | Автор: BeaU | 2009-06-04, 12:12   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите, пожалуйста, с задачкой на условный оператор!!!
  • Страница 1 из 1
  • 1
Поиск: