Program Vlad971997; uses crt; var a,b,c:real; begin writeln('*** alphaues is thinking... ***'); writeln('*** OK ***'); write('Введите a '); readln(a); write('Введите b '); readln(b); write('Введите c '); readln(c); if (a>=b+c) or (b>=a+c) or (a>=b+c) then writeln('ответ "0": Со сторонами a,b,c нельзя построить треугольник') else if (a=b)and (b=c) and (a=c) then writeln('ответ "3": Со сторонами a,b,c можно построить равносторонний треугольник') else if (a<>b)and (b<>c) and (a<>c) then writeln('ответ "1": Со сторонами a,b,c можно построить другой треугольник') else writeln('ответ "2": Со сторонами a,b,c можно построить равнобедренный треугольник') end.
public static void main(String args[]){
java.util.Scanner in = new java.util.Scanner(System.in);
String string = in.nextLine(); char chars[] = new char[4];
chars[0] = in.nextLine().charAt(0); chars[2] = in.nextLine().charAt(0);
for(int sChar = 0; sChar<string.length(); sChar++)
if(string.charAt(sChar)==chars[0])chars[1]++;
else if(string.charAt(sChar)==chars[2])chars[3]++;
System.out.print("\n"+(chars[1]==chars[3]?chars[0]+""+chars[2]:chars[1]>chars[3]?chars[0]:chars[2]));
}
}
Program Vlad971997;
uses crt;
var
a,b,c:real;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
write('Введите a '); readln(a);
write('Введите b '); readln(b);
write('Введите c '); readln(c);
if (a>=b+c) or (b>=a+c) or (a>=b+c) then
writeln('ответ "0": Со сторонами a,b,c нельзя построить треугольник')
else
if (a=b)and (b=c) and (a=c) then
writeln('ответ "3": Со сторонами a,b,c можно построить равносторонний треугольник')
else
if (a<>b)and (b<>c) and (a<>c) then
writeln('ответ "1": Со сторонами a,b,c можно построить другой треугольник')
else
writeln('ответ "2": Со сторонами a,b,c можно построить равнобедренный треугольник')
end.
Проверено - работает на Паскаль АВС