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

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.

Comments

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

---

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