Напишите программу, выводящую true, если высказывание является истинным, и false в противном случае для утверждения: «Сумма цифр трехзначного числа х является четным числом». Значение числа Х вводится с клавиатуры.
Answers & Comments
AwePlaxa
Var x:integer; begin writeln('Введите чилос x: '); readln(x); if x>= 100 then if (not odd(x)) then writeln('TRUE') else writeln('FALSE') else writeln('Число не трехзначное'); end.
Надеюсь правильно понял тебя и составил программу верно.
Answers & Comments
begin
writeln('Введите чилос x: ');
readln(x);
if x>= 100 then
if (not odd(x)) then
writeln('TRUE')
else
writeln('FALSE')
else
writeln('Число не трехзначное');
end.
Надеюсь правильно понял тебя и составил программу верно.
то есть у тебя проверяется условие.Если оно верно,выполняется команда1 иначе выполняется команда2