Составьте программу, вводящую true, если высказывание является истинным, и false в противном случае: а) сумма цифр трёхзначного числа х является чётным числом;
б) треугольник со сторонами a, b, c является разносторонним.
))) СОСТАВЬТЕ ПРОГРАММУ В ПАСКАЛЕ
BARBARIC5665
3
25.03.2021 08:15
11 
Популярные вопросы
- Сумма всех натуральных чисел,заключенных между числами корень из 14 и корень...
1 - Прямые аби сд пересекаются в точке о. оа =об,ос=од. докажите что, 1) треугольник...
2 - Вдвух седьмых классах67 учеников , причем в одном на 3 учеников больше чем в...
2 - Вхлебный ларек 28 лотков булок в каждом лотке 6 рядов по 12 булок. сколько всего...
3 - Для строительства забора поставили по прямой 10 столбцов, расстояние между которыми...
2 - Чим словосполучення відрізнаються від речення та від слова ?...
3 - Абрикос,груша,банан,слива,малина,апельсин,вишня,виноград...
3 - 1.2 зависимость пройденного телом пути по окружности радиусом r=3м задается уравнением...
2 - 1. орудие, жестко закрепленное на железнодорожной платформе, производит выстрел...
1 - Начальная форма словам увидела набрали огромный полные весёлые...
2
a)
var
a, sum, i : integer;
begin
readln(a);
sum:=0;
while a > 0 do begin
sum:= sum + (a mod 10);
a:= a div 10;
end;
writeln((sum mod 2) = 0);
end.
б)
var
a, b, c: integer;
res: boolean;
begin
readln(a, b, c);
res := (a <> b) and (a <> c) and (b <> c);
writeln(res);
end.