18. Составьте программу, вводящую true, если высказывание является истинным, и false — в противном случае на языке Паскаль.:
а) сумма цифр трёхзначного числа x является чётным числом;
б) треугольник со сторонами a, b, с является разносторонним.
Ответ
а) В Паскале программа может быть следующей:
function isSumOfDigitsEven(x: integer): boolean;
var
digitSum: integer;
begin
digitSum := 0;
while x > 0 do
begin
digitSum := digitSum + (x mod 10);
x := x div 10;
end;
isSumOfDigitsEven := (digitSum mod 2) = 0;
end;б) Для определения, является ли треугольник со сторонами a, b, c разносторонним, можно использовать следующую программу:
function isScaleneTriangle(a, b, c: real): boolean;
begin
isScaleneTriangle := (a <> b) and (a <> c) and (b <> c);
end;Обратите внимание, что в обоих случаях созданы функции, которые возвращают значение типа boolean, и возврат идет с помощью оператора :=. Для тестирования программы вы можете вызвать эти функции и выводить результат на экран с помощью оператора WriteLn.