Program prog;
uses crt;
Var a,b,x: real;
begin
clrscr;
write('x = ');
readln(x);
write('a = ');
readln(a);
write('b = ');
readln(b);
writeln;
if (a<=x)and(b>=x) then
writeln('Принадлежит')
else
writeln('Не принадлежит');
end.
Ответ:
program Example1;
begin
Write ('Пусть бегут неуклюже пешеходы по лужам');
ReadLn;
end.
VB.
Dim A() As Integer
Randomize()
Dim k As Integer
Dim n As Integer
n = Rnd() * 100 + 1
ReDim A(n)
For k = 0 To n
A(k) = Rnd() * -1000 + 500
Next
Dim Dump As Integer
Dim u As Integer
u = InputBox("Введите номер элемента для встанвки в пределах от 0 до " & n)
ReDim Preserve A(n + 1)
For k = n + 1 To u + 1 Step -1
Dump = A(k)
A(k) = A(k - 1)
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
A(k - 1) = Dump
<span>Next</span>
A = int(input("b = "))
if a//100 == a\%10: print("Число симметрично")
else: print ("Число не симметрично")
Пример:
<span>b = 525
Число симметрично</span>
Крайне часто на глаза стала попадаться именно эта загадка.
Колонка<em>(а собака - болонка)</em>