Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  белант
Language: PASCAL
Code:
var 
a,b,c: real; 
begin 
write('Vvedite A,B,C: '); 
readln(a,b,c); 
if (a=b) or (a=c) or (b=c) then writeln('Treugolnik ravnobedrenniy') 
else writeln('Treugolnik ne ravnobedrenniy'); 
readln; 
end.
          
Comments: