Var x,a,b,c:integer;
begin
writeln ('введи трехзначное число');
readln (x);
c:=x mod 10;
b:=x div 10 mod 10;
a:=x div 100 mod 10;
if a=с then writeln ('Число является перевертышем')
else writeln ('число не является перевертышем');
if (a=b) or (a=c) or (b=c) then writeln ('да')
else writeln ('нет');
end.
<em>Решение:</em>
<em>1 - В</em>
<em>2 - С</em>
<em>3 - А</em>
<em>4 - E</em>
<em>5 - D</em>
Python
1. x = [1,2,3,4,5,6,7,8,9,0] #Массив
print(x[:5])
print(x[5:])
2. x = [1,2,3,4,5,6] #Массив
print(x[::-1])
3. x = [0,1,2,3,4] #Массив
for i in range(1,len(x),2): print(x[i])
4. То же самое, что 3 программа, только 1 в range(...) заменить на 0
пы сы Хэштэг это комментарий в языке Python т.е. не исполняется
Var
i, sum : integer;
begin
sum := 0;
for i := 1 to 100 do sum := sum + i;
writeln (sum);
end.
Для импликации(ложна только тогда, когда первое логическое значение истинно. а второе ложно; в остальных случаях истинна):
1→1=1
1→0=0
0→1=1
0→0=1
Для эквивалентности(истинна только тогда, когда оба выражения истинны или ложны):
0⇔0=1
1⇔0=0
0⇔1=0
1⇔1=1