Question

Составьте программу в Паскаль, вводящую true, если высказывание является истинным, и false в противном случае. а) Треугольник со сторонами a, b, с являются равносторонним. б) целое число N является чётным двузначным числом

Answer 1

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.