Спрограмириванием в паскале с оператором if.
даны три целых числа a, b, c. определить, есть ли среди них хотя бы одно четное и хотя бы одно нечетное.
входные данные
числа a, b, c, не превышающие по модулю 1.
выходные данные
одна строка – "yes" или "no".
и 2
дано три числа, записанный в отдельных строках. упорядочите их в порядке неубывания. программа должна считывать три числа a, b, c, затем программа должна менять их значения так, чтобы стали выполнены условия a < = b < = c, затем программа выводит тройку a, b, c.
входные данные
вводятся три числа, каждое записано в отдельной строке.
выходные данные
выведите ответ на .
Задание 1
a = int(input())
b = int(input())
c = int(input())
if (a % 2 == 0 and b % 2 != 0) or (a % 2 != 0 and b % 2 == 0):
print("YES")
elif (a % 2 == 0 and c % 2 != 0) or (a % 2 != 0 and c % 2 == 0):
print("YES")
elif (b % 2 == 0 and c % 2 != 0) or (b % 2 != 0 and c % 2 == 0):
print("YES")
else:
print("NO")
Задание 2
Var i,j,t:integer;
a:array[1..3] of integer;
Begin
for i:=1 to 3 do
readln(a[i]);
for i:=1 to 3 do
for j:=i+1 to 3 do
if a[i]>=a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
for i:=1 to 3 do
write(a[i],' ');
End.
Объяснение: