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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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