Составьте программу в Паскаль, вводящую true, если высказывание является истинным, и false в противном случае. а) Сумма цифр трёхзначного числа х является чётным числом. б) Треугольник со сторонами a, b, с являются равносторонн...
Составьте программу в Паскаль, вводящую true, если высказывание является истинным, и false в противном случае. а) Сумма цифр трёхзначного числа х является чётным числом. б) Треугольник со сторонами a, b, с являются равносторонним.
Гость
Ответ(ы) на вопрос:
Гостьuses crt; var a,b,c,n,n1:integer;
begin readln(n);
n1:=(n div 100)+((n div 10) mod 10)+(n mod 10);
if (n1 mod 2 = 0) then write('true'); if (n1 mod 2 = 1) then write('false');
readln(a,b,c);
if (a=b) and (a=c) and (b=c) then write('true')
else write('false')
end.
Не нашли ответ?
Похожие вопросы