Question

Составить программу, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: а)сумма цифр данного трехзначного числа n является четным числом. б)квадрат заданного трехзначного числа равен кубу суммы цифр этого числа. в)треугольник со сторонами a, b, c
является равнобедренным. ( мне нужны именно результаты этих программ) сами программы указаны ниже //1-ая program solution(input, output); var   num: integer;   n1, n2, n3: integer; begin   write('введите 3-значное число: ');   read(num); n1 : = (num div 100);
  n2 : = (num mod 100 mod 10);   n3 : = (num mod 100 div 10);   if(n1 + n2 + n3) mod 2 = 0   then writeln('чётное')   else writeln('нечётное'); end. //2-ая program solution(input, output); var   num: integer;   n1, n2, n3: integer; begin  
write('введите 3-значное число: ');   read(num); n1 : = (num div 100);   n2 : = (num mod 100 mod 10);   n3 : = (num mod 100 div 10);   if(num * num) = (n1 * n1 * n1) + (n2 * n2 * n2) + (n3 * n3 * n3)   then writeln('равен')   else writeln('не равен'); end.
//3-я program solution(input, output); var   a, b, c: integer; begin   write('введите a, b, c: ');   read(a, b, c); if(a = b) or (b = c) or (c = a)   then writeln('равнобедренный')   else writeln('не равнобедренный'); end.