Можно код сделать покороче, если ты об этом.
program tri;
var
a, b, c: real;
begin
writeln('Введите a,b,c:');
readln(a, b, c);
if (a > 0) and (b > 0) and (c > 0) then
begin
if (a = c) and (b = c) and (a = b) then
writeln('Треугольник равносторонний') ;
if (((a = b) and (b <> c)) or
((b = c) and (b <> a)) or
((c = b) and (c <> a))) then
writeln('Треугольник равнобедренный');
if (a <> b) and (c <> b) and (a <> c) then
writeln('Треугольник произвольный') ;
end
else
writeln('такого треугольника нет') ;
end.
Ну вот, на 5 строчек короче, но смысл тот же.
Изменения:
Использовал if.. else вместо двух if при проверке положительности сторон. Собрал 3 if при проверке на равносторонность в один if.
Компьютер, как и говорится в его названии (computer - вычислитель) служит для автоматизации процессов вычисления и обработки информации (которую можно, как оказалось, представлять количественно, в виде цифр).
Это позволяет автоматизировать большое количество рутинной работы, которая раньше выполнялась вручную.
Например, можно не тратить бумажки для хранения данных, а использовать базу данных, ускоряя доступ к данным посредством математических свойств данных.
Или не считать вручную выручку за квартал на предприятии, а использовать MS Excel для автоматических расчетов. Тот же Excel позволяет сразу вместе с расчетами полученные данные оформить в виде документа и отправить "на стол" начальству, а не идти из одного офиса в другой.
Помимо офисной работы автоматизируется также процесс производства. Начиная от черчения чертежей в Autocad (а не вручную, как раньше) и заканчивая полностью или наполовину автоматизированным производством деталей, посредством разработки встраиваемых систем или написания пакета программ для автоматизации.
Или сопровождение процесса работы. Например, расчет давления в подводящих трубах во избежание взрыва основной трубы. (Делается посредством решения огромной системы линейных уравнений с огромной разрежанной матрицей).
В целом, потенциал развития и применения компьютерных технологий огромен.
Составляем таблицу, в которой на пересечении строки и столбца будем ставить X, если такая комбинация невозможна, и V, если мы определили профессию. У меня будет также написан номер утверждения, в соответствии с которым ставился этот значок:
Петров и Гришин никогда не держали в руках малярной кисти - значит, Петров и Гришин - не маляры.Иванов и Гришин все собираются посетить мельницу, на которой работает их товарищ - Иванов и Гришин - не мельники. Петров и Иванов живут в одном доме с почтальоном - Петров и Иванов - не почтальоны. Иванов и Сидоров каждое воскресенье играют в городки с плотником и маляром - Иванов и Сидоров - не плотники и не маляры. Петров брал билеты на футбол для себя и мельника - Петров - не мельник.У Иванова остается только вариант быть парикмахером, остальные - не парикмахеры.Петров - плотник, остальные не плотникиГришин - почтальон, остальные не почтальоныСидоров - мельник, Алексеев - не мельникАлексеев - малярответ: Иванов - парикмахер, Петров - плотник, Гришин - почтальон, Сидоров - мельник, Алексеев - маляр