Составьте программу в Паскаль, вводящую true, если высказывание является истинным, и false в противном случае.

 

а) Треугольник со сторонами a, b, с являются равносторонним.

б) целое число N является чётным двузначным числом

 

сори протупил

если true и false то через boolean надо делать

ок ок просто написано маленькими, бул кажется большими возвращает, нет?

да это без разницы

хорошо) проверочным серверам есть разница)) сделал на всякий для сервера))

var a,b,c:longint;begin        readln(a,b,c);        if (a=b) and (b=c)  then //если a=b и b=c то                      writeln('true')        else                              writeln('false');end. var n:longint;begin            readln(n);            if (n div 100=0) and (n div 10<>0) and (n mod 2=0) then            //если целая часть от деления на 100 равна 0            //и целая часть от деления на 10 не равна 0 то                          writeln('true')            else                         writeln('false');end.