Задание:
Составьте программу, входящую true, если высказывание является истинным, и false в противном случае: а) сумма цифр трехзначного числа х является четнымчислом; б) треугольник со сторонами a,b,c является разносторонним
Решение:
1: Program P1; Uses Crt; Var x: Integer; BeginClrScr; Write ('Введи x: '); Readln (x); Write (x mod 10+x div 10 mod 10+x div 100) mod 2=0); Readln; End. 2: Program P2; Uses Crt; Var a, b, c: Integer; BeginClrScr; Write ('Введи a, b, c: '); Readln (a, b, c); Write (a <> b) and (b <> c) and (a <> c); Readln; End.
Знаете другой ответ?