Составить программу, печатающую значение 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.
